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60 HI = INT (N / 256) :L0 = N -: 
70 POKE 938, LO; POKE 939, HI: I 

: 80 FOR I = TO N - 1: REAL a:| 
90 I^fPUT "GIVE KEY WORD: ";B$: 
100 IF B$ = "" THEN 200 

; 110 INPUT "ALL OR FIRST OCCURj; 

i 120 REM *********»*««*#*#«*«*^ 
130 CALL 768,B$,A$: REM GET Ai; 
1-40 REM ********#*#*****##***^ 
150 IF PEEK (26) = 255 THEN ■ 
PEEK (27)): PRINT :REM D/ 
160 IF F$ = "F" THEN 200 



See page 29 



See page 69 



See page 40 



Animated Graphics Routines for the 6809 
Random Number Generator for the Apple 
Review of Powerful Programmer's Utility for C64 




penguin software 



the graphics pea#te 

The Next Generation Is Here! 
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At Penguin, we 

don't rely on the same old 

game formulas, adding to the mish-mash 

of look-alike games already on the market. We look 

for creativity, originality, and innovation. Games like 

Minit Man, challenging you with two types of arcade action 

simultaneously; Coveted Mirror, an adventure with animation and 

arcade games throughout; The Spy Strikes Back, an arcade game with 

strategy and a touch of adventure; Pensate and Tactic 9, games that make 

you think; and Expedition Amazon, an intriguing and humorous fantasy game. 

And Each Is Only $19.95! More Fun For Your Money From Penguin Software 

Write for a free catalog 
830 Fourth Avenue, Box 311 Dept. C Geneva, IL 60134 For information - Call (312) 232-1984 Dealer orders only - Call (800) 323-0116 



Apple IS a trademark of Apple Computer, Inc Atari ih a trridemark of Atd 
Busiiifss Machines Ctirp Penf-Tums nre hnrr] on pool tnys. 



. Inr Commodore is a tr.idt'mark of Comimnhn-c Business M.irhinet, fnr. miM is a trademark ef liit'irri.itioMi 




WORDPROCESSOR 
V FOR THE COMMODORE 64 
ALSO CHECKS YOUR SPELLING! 



SCRIPT 64 



Suggested Retail: $ 99.95 



cc 



REALLY FOXY IS BEING LETTER PERFECT" 



Contact Your Nearest Commodore Dealer Today . . . 

You'll Be So Glad You Did! 



Distributed By: ,^ ^^^— i r.r.r.,*, ., . 

C^nnilDIITCD r\^ ^ 300 W. Marlton Pike 

COIVIPUTCR ^Vy/ r^ Cherry Hill. New Jersey 08002 

MARKETING SERVICESInC. [609]795 9480 



Commodare 64 is a trademark of Commodore Electronics Limited 
Script 64 IS a trademark of Richvale Telecommunications 



No. 65 - October 1983 MICRO 




MICftO 

Editor's Notes 



This month's issue of MICRO in- 
troduces a new format, making 
it even more valuable and 
easier to read. Just turn to the Table of 
Contents for a peek. We've sec- 
tionalized the magazine by system — 
Apple, Commodore, Atari, and Color 
Computer. Now you have at least 10 
to 15 pages of the magazine devoted 
only to your computer! Plus we still 
offer a general section with informa- 
tion for everyone. 

We haven't altered MICRO'S 
unique content or professional style. 
You can still count on MICRO for in- 
termediate to advanced information 
on these systems — serious, useful in- 
formation for serious computerists. 
And, since we've more carefully 
defined the systems we cover 
(eliminating the OSI, AIM, SYM, and 
KIM as discussed in August's 
Editorial), we are able to cover more 
completely the Apple, Commodore, 
Atari, and Color Computer systems. 



We think you'll find, over the next 
few months, that MICRO is growing 
in quality. Our loyal, long-time 
readers will be pleased with the way 
MICRO continues to meet their ex- 
pectations, and new readers will be 
pleasantly surprised at discovering a 
serious, useful, professional source of 
information. 



October's Highlights 

Our concentration in October is 
on programming techniques. We offer 
a directory menu for each system, 
plus many other helpful techniques 
and methods to improve your pro- 
gramming. In the general section 
Loren Wright provides a routine to 
plot data with character graphics for 
all the systems, and Michael Allen 
demonstrates structured game design. 

In the Apple section look for 
"Rapid String/ Substring Search," by 



L.S. Reich, a random number 
generator from Bill Walker, and a 
linear search technique by Richard 
Vile. The Commodore section brings 
you faster math operations in 
Microsoft BASIC (Peter Hiscocks), 
and a bank- switched JSR by Terry 
Peterson. 

Atari users will find their directory 
menu, Paul Swanson's From Here to 
Atari column, and "Atari Graphics 
Notepad in FORTH," by Mike 
Dougherty. And, for Color Computer 
enthusiasts there is John Steiner's 
CoCo Bits column, a directory menu, 
and animated graphics routines from 
Craig Carmichael. 

Each month the system sections 
will become more carefully organ- 
ized; in November each will contain 
its own Software and Hardware 
Catalog and Reviews in Brief depart- 
ments. We hope you enjoy our new 
format. 



Enter Our 
Graphics Contest!!! 

We're sponsoring an exciting 
contest for those of you interested 
in designing graphics pictures. 
You could win one of many prizes 
— big and small! Just use your 
favorite graphics program on your 
favorite microcomputer (either a 
Commodore, Apple, Atari, or 
Color Computer) and create! 
Turn to page 108 for all the 
details! 




About the Cover. ■■-'^^^^— 

The graphic this month was 

created on the C64 by 

Al Korostynski's directory 

menu program. 
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ATARI COMPUTER OWNERS: 



Pick the positively 

perfect, practical, 

printer-port peripheral 

package, from 

PERCOM DATA! 




n a. h ru'jiiL ..Liie pusmveiv [jerfect PERCOM DATA5/V', floppy disk drive with a BUiLi -IN 
PRINTER-PORT, for your Atari'^' 400/800 is now available! 
Until now Atari computer owners wno wanted to hook a printer to tneir computer had only^one 
choice ,. - spend about $220 for an interface device, THOSE DAYS ARE OVER. PERCOM DAi A has 
built a parallel printer-port right into its nev^/ AT88 PD model. Now you cm add a quality disk drive 
system AND have a place to plug ir a printer. .WITHOUT BUYING an interface, 
] re AT88 S1 PD™ disk drive operates in both single density (88K bytes formatted) and double 
density (176K bytes formatted). 
■•■A/hrai ir^ofp could you want? NO INTERFACE,., a hign quality PERCOM DATA disk dnve,,, AND a 
buiit-inPRINTER-PORT.,,all wilhaoriceof $599. 
~ick up a positively perfect PERCOM DATA disk drive, with 
printer-port., pronto! 
1-or the name of an authorized PERC0y^AT4-Dea!er near you, 
call our TOLL-FREE HOTLINE 1-80(|^?f ^2 NOW, or write 
for more informali&nV' ■"■ 



$599. 



9msm am 



CORPORATiON 



Expanding Your Peripheral Vision 

DRIVES • NETWORKS * SOFTWAR E 

;ll Road, Dallas, Texas 75243 (214) 340-5800 
1-800-527-1222 

osnark of Percom Data Corp. 

..'iectto chanae without no' 
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Advancing Computer Knowledge 



Programming 
Techniques 



25 Programming 
Techniques 

Phil Daley 

A brief discussion on 

useful techniques 



26 The Directory iVIenu 

Phil Daley 

An introduction to this user- 
friendly utility 



28 Plotting Data with 
Character Graphics 

Loren Wright 

General purpose routines for 
the C64, VIC-20, PET, Apple, 
Atari, and TRS-80C 



Apple 



18 Apple Slices 

Jules Gilder 

Turn your IBM PC into an 

Apple 



38 Rapid String/ 
Substring Search 

L S. Reich 

Use a machine-language 
program to obtain a rapid 
array search. 




34 Structured Game 
Design 

Michael Allen 

Transform imagination and 
fantasy into graphic or text 
displays 



97 Interface Clinic 

Ralph Tenny 

Convert your serial I/O into 

parallel I/O using a UART 



42 Directory IVIenu for 
the Apple 

Keith Davison and Phil Daley 

Convert the normal 
CATALOG routine into a 
string array of individual 
entries 



44 Random Number 
Generator 

Bill Walker 

Theoretical basis for 
generating uniformly 
distributed pseudo-random 
numbers 



48 Linear Search 

Richard Vile 

Learn how to search through 

a list of numbers 
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The Directory Menu.-.page 26 



Commodore: 



12 Commodore Compass 

Loren Wright 

A look at POWER64 from 

Pro-Line Software 



54 Faster Math 
Operations in 
IVIicrosoft BASIC 

Peter Hiscocks 

Speed up array operations 



NAME m ASCII 



LENQTH OF ARRAY 

(INCLUDING 

HEADER) 




Atari 



14 From iHere to Atari 

Paul Swanson 

Information on the three 
GTIA modes and a new 
editor. EREDIT 



Color Computers 



22 CoCo Bits 

John Steiner 

New disk ROMs, the J & M 

disk controller card, and 

Elite^Calc 



64 Directory l\/ienu for 
the Atari 

Jerry White 

All you need are your DOS 
master disk, a blank disk, and 
these two BASIC programs 



NUMBEF 

OF 

DIMENSIO 



58 Banic-Switched JSR 

Terry Peterson 
Use SuperPET's bank- 
switched memory with 6502 
machine-language programs 



62 Directory IVIenu for 
the Commodore 64 

Al Korostynski 

A fast version of this utility 



66 Atari Graphics 
Notepad in FORTH 

Mike Dougherty 

Interactively construct 
images through simple 
keyboard commands 
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76 Directory IVIenu for 
the Coior Computer 

Slei^e Kronschnabel and Phil 

Daley 

This version offers a 

directory backup 



77 Animated Graphics 
Routines for the 6809 

Craig Carmichael 

Display moving animated 
figures and custom 
characters 
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A\ ri l\ COMPUTING 
P.O Box 2025 
CORONA, CA 91 720 







WE ACCEPT VISA/MASTERCARD, PERSONAL OH ECKS (ALLOW 1 DAYS TO CLEAR} OR COD ($2.00 CHARGE). PLEASE I NCLUDE 3% FOR SHIPPING ($2,00 
MIN.) OR 5% FOR BLUE LABEL ($3.00 MIN.). FOREIGN SHIPPING 10% ($5.00 MIN.). CALIFORNIA RESIDENTS ADD 6% SALES TAX. ALL ITEMS ARE NEW 
AND CARRY MANUFACTURERS WARRANTY. PRICES AND AVAILABILITY ARE SUBJECT TO CHANGE WITHOUT NOTICE. 
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Letterbox 



OSI Readers Respond 



Dear Editor: 

It was with great sadness that I read 
your editorial in the August, 1983, 
issue proclaiming the death of OSI, 
AIM, SYM, and KIM. If you really 
mean not to accept any more articles 
on these micros, such an action is 
Oedipal, or at least patricidal, on your 
part and may well be expected to bring 
the historic retribution from the Fates. 
(Personally, I would have recommended 
the Furies.) 

I believe you may have miscalcu- 
lated the extent of your present |and 
future) readership concerned with 
these micros, perhaps due to some in- 
adequacy of your sampling technique 
or to the reticence of many users to 
answer surveys, etc. 

As an example of such a possibility, 
I would cite the fact that, although they 
have been rather slow to get going in 
this area, the American Association of 
Physics Teachers, which represents the 
vast majority of both college and high 
school physics teachers in the U.S., has 
presented workshops at each of its 
meetings over the past three years (and 
at numerous other times and locations). 



which have introduced more than three 
thousand teachers to the use of the KIM 
and SYM. In fact, it was only this year 
that their advanced interfacing 
workshop was entirely shifted from the 
KIM to the SYM. These activities are 
building a considerable base of com- 
petence in the laboratory application of 
single-board computers and are 
resulting in the appearance in the 
scientific literature of applications of 
these devices. Single-board micros are 
the essence of such interfacing applica- 
tions, where it would be patently ab- 
surd to dedicate an entire Apple or 
Commodore 64. 

I have been a subscriber to MICRO 
almost from its beginning and I have 
always appreciated its role in supplying 
information on the specialized 
microcomputers that were of greatest 
interest to my own applications in the 
educational field. Please don't abandon 
that unique position and become just 
another general computer magazine. 

Charles D. Geilker, Chm. 

Department of Physics 

William Jewell College 

Liberty, MO 64068 



Dear Editor: 

The dropping of just the OSI and 
ASK articles and focusing on just the 
most popular and future computers is a 
mistake. Obviously, you are trying to 
expand your audience — one of them is 
making more room in the magazine — 
you can reach an even larger audience 
by covering all types and brand of 
machines. That's one reason why 
BYTE and Computeis and Electronics 
are so successful. Why limit yourself to 
just a certain group of machines? Don't 
get me wrong, I'm not condemning 
your decision. Seeing a magazine with 
a potpourri of very useful information 
become specifically directed to a 
limited audience is like watching the 
United States step down on the ladder 
of world importance. 

I guess the theme of this letter is to 
remember that not everybody has a 
PET, Coco, Atari, TI 99/4A, or any 
other of the few machines that you do 
cover. One thing that seemed to be a 
message in the August editorial is that 



if one submits an article demonstrating 
a new use for the MC68000 processor 
specific to the ASK machines, you'll ig- 
nore it! Again, I ask: Why just cover 
certain machines? Doing this just con- 
tradicts the subtitle of the magazine: 
' 'Advancing Computer Knowledge' ' . 
Maybe it should now read: "Restricting 
Computer Knowledge". How about 
editorials on the latest portables? This 
letter was written on a Kaypro 4. 
Others using portables will appreciate 
useful information on this machine. Or 
how about the new Heathkit, the IBM 
PC, or the Hewlett Packards? Put all 
this together and you have either a 
new section in the magazine or a spe- 
cial issue! 

Well anyway, thanks for helping me 
get the most out of my machine — 
something that other publications just 
couldn't have done. 

Timothy Hu 

1601 E. Lincoln Way 

Cheyenne, WY 82001 



Atari FORTH Topics 

Dear Editor: 

I was pleased to see Mr. Dougherty's 
article on FORTH applications for the 
Atari (62:92). I would be even more 
pleased if he (or anyone!) could grapple 
with another FORTH-f or- Atari issue: 
disk files. Since FORTH disk files are 
incompatible with other DOSes, in- 
cluding Atari DOS, an article on 
reading and writing Atari DOS files 
from FORTH would be a boon. 

Also, I thought the magazine's 
name was "MICRO " because of the 
computers, not because of its 
typography. If an article deserves no 
better than unreadable microscopic 
print, should the article be printed 
at all? 

Mr. Swanson's column has twice 
mentioned ways of controlling 
peripherals from the Atari joystick 
parts. The explanations have been terse 
and in expert's language, largely, I ex- 
pect, because of the limits to space for a 
column. An article, however, would 
give him the chance to expand on the 
issue in terms understandable (or at 
least usable) by ordinary BASIC pro- 
grammers. Example programs would be 
necessary, even if in tiny print! 

Ronald Pitts 

RD #5 

Kittanning, PA 16201 

Dear Editor: 

Thank you for the article ' 'An Inex- 
pensive Joystick for the Apple 11" 
(62:48). I made it, and it works (after 
figuring out the orientation of the con- 
nector pin diagram) . One note: I found 
a 16-pin DIP Header at my local Radio 
Shack (Part no. 276-1980, $1.69 -K tax). 

Please, have more program listings 
for Apple; I originally subscribed to 
MICRO because it had good programs 
that I could enjoy. I'd also like to see 
more hints/ techniques on program- 
ming — and, if you can find them, pro- 
jects like the joystick. 

Carl E. Serkland 

507 Fontonett Ave. 

Livermore, CA 94550 



(Continued on next page) 
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The largest public computer show and business office equipment exposition 
ever held in Washington is coming to the Convention Center, October 27-30, 
1983. If you've been thinking about a business computer, word processor, a 
videogame, or a personal or homecomputer-The Fourth Annual Mid-Atlantic 
Computer Show and Business Office Equipment Exposition is the place to go 
to compare all the leading makes and question experts about the capabilities of 
their machines. 

Unlike a computer store. The Computer Show offers you the opportunity to 
compare, question and learn about computers in a nonintimidating, no obli- 
gation, fun filled atmosphere. If you deckje to buy at the show, you may save 
hundreds, even thousands of dollars because many products on display are 
for sale at super show prices. 

The show features hardware and software for business, industry, government, 
education, home and personal use, including micro and mini computers, data 
and word processing equipment, computer graphics, peripherals, accessories, 
publications, support services and supplies. 

Another major segment of the show is office systems, office products and office 
equipment such as electronic typewriters, telecommunications, telemarketing, 
copy machines, furniture, business machines, dictating equipment, microfilm 
equipment, facsimile machines, office supplies, publications and business 
services. Admission is $5 for adults and $3 for children. 



SHOW HOURS: 
THURSDAY-SUNDAY 

OCTOBER 27-30, 1983 
10:30 A.M. to 6 P.M. 



WASHINGTON 

CONVENTION 

CENTER 

H & 9th Streets, N.W. 
Take Metro Blue, Orange or 
Red Lines to Metro Center. 



PRODUCED BY COMPUTER EXPOSITIONS, INC. 

POST OFFICE BOX 3315, ANNAPOLIS, MARYLAND 21403 

TELEPHONE -WASHINGTON, DC AREA: 261-1047 

TOLL FREE OUTSIDE MARYLAND: 1-800-368-2066 

SPONSORED BY 
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Dear Editor: 

I read in your CoCo Bits column 
that a new ROM version for the Color 
Computer was expected soon. ROM 
version 1 . 1 has been out for some time 
as I have had my CoCo for over six 
months and it contains 1.1. This can be 
determined by typing "EXEC 41175" 
then "ENTER". This will cause 
the ROM version to be printed to 
the screen. 

The disk Scripsit and Spectaculator 
from Radio Shack are run by typing 
"RUN DOS" then "ENTER". 

I know a lot of people at work with 
micros that used to laugh at the Color 
Computer and think of it as a toy, but 
no more. Some of them have even told 
me they wish they had purchased one 
instead of what they have. 

Your magazine has a lot of good in- 
formation in it. It would be great to see 
more on the Color Computer. 

Brent Flemming 

3rd Floor, Systems 

700 Newport Center Dr. 

Newport Beach, CA 92660 



Newton-Raphson: Novel or Not? 

Dear Editor: 

I did not have the pleasure of 
reading "Extending Newton — 
Raphson's Method to Evaluate Com- 
plex Root" by P. P. Ong (56:71), but 
have just spotted Dr. Ong's letter in the 
July issue, wherein he mentions that 
the "extension (of the Newton- 
Raphson method) to include complex 
roots is novel." 

I am afraid it is not that novel at all. 
In my textbook, Introduction to 
Numerical Methods, published by the 
Macmillan Publishing Company in 
1970, I use the Newton-Raphson 
method to solve an equation with com- 
plex roots. Though no prior instances 
of such use come immediately to mind, 
I doubt that the technique was new 
even back in 1968 when the book was 
written. 

Peter A. Stark 

P.O. Box 209 

Mt. Kisco, NY 10549 



(Continued on next page) 
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UersaLUrher 

FOR COMPLETE GRAHICS 




GRAPHICS TABLET AND SOFTWARE 

Teachers, artists, engineers, programmers & hobbiests 

\ find VersaWriter an easy to use tool for creating 

micro computer graphics. No programming 

experience is required. Pictures can be made 

by simply tracing. Even children can explore 

the exciting world of computer graphics. 

The VersaWriter is as limitless as your 

imagination. 

VersaWriter contains complete software for 

drawing with color, brushes & dots. Add text 

or fill in over 100 colors. Create your own shapes 

and place anywhere on the screen. Use Area/Distance, 

Move Picture, Electronic Drawing & Skeleton programs. 

Additional features include Reverse Picture, Scaling, 

Split/Full Screen, Save, Load, Erase plus much more . . 



Complete Hardware/Software System for Apple ll/ll+/lle 

(Also available for Atari and IBM PC) 



$299.00 



VERSAWRITER DESIGNER PACS^ 




EXPANSION PAC I - Create real time shape 
tables in full color. Contains 350 
predefined shapes for architecture, 
games, circuit boards, etc. Edit or define 
pictures using the true color HIRES 
microscope with up to 4x magnification. 

$39.95 



*Requires VersaWriter 



EXPANION PAC II - Adds 10 powerful 
graphics commands to VersaWriter 
including: Shrink, Magnify, Fast Picture 
Loader, Combine Two Screens, Color 
Remover, and Mirror & Upside Down 
Functions. Mix functions to create unusual 
effects. $39.95 



V COfilPUCiriG, inc. 3541 OW Conejo Rd. #104 



EXPANSION PAC III - NEW! To be 
released this Fall ■ Animation Tool Kit. 

$49.95 



Newbury Pork. CA 91320 • (805)498-1956 
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Letterbox (continued) 



Dear Editors: 

I refer to Peter Stark's letter to you 
concerning my article titled "Extend- 
ing Newton-Raphson's Method to 
Evaluate Complex Roots" (56:71). I 
have already stated that NR's method is 
not new and numerous algorithms have 
already been tried long ago to extend it 
to complex roots (e.g., see W.E. Grove, 
Brief Nttmencal Methods, Prentice 
Hall; 1966, p. 9-14, as referred to in 
my article] . 

In Peter's book, the method described 
is, unfortunately, merely a simplified 
repetition of Grove's method and many 
others before him. Its chief defects, 
which render it unsuitable for a 
microcomputer (or even a more power- 
ful computer), are: 

(a) It necessitates a computer that can 
handle complex algebra, a require- 
ment that is hard to satisfy even 
with present-day advanced 
microcomputers. 

(b) Convergence is often so elusive and 
slow that it rarely concludes 
successfully. 

(c) Perhaps most important of all, the 
algorithm suggested by Peter re- 
quires a lot of preliminary tedious 



(and error-prone) calculations, such 
as to rationalize all the term de- 
nominators. My program is univer- 
sal and does not require any prior 
manipulation of complex numbers. 
Just enter the coefficients of the 
polynomial and the computer takes 
over completely. 

Beset by all these defects, Peter's 
algorithm is probably only suitable as 
an academic topic. I hope his readers 
would not be enthusiastic enough to 
take up his advice (p. 116 second para- 
graph last line) that his method is 
worth trying in actual practice. As a 
lecturer myself I know that the surest 
way to stifle a student's interest in any 
subject is to disappoint him with un- 
attainable expectations especially after 
considerable effort has been put in. 

Was it just by pure chance that for a 
practical illustration of his method, 
Peter had chosen the most simple 
polynomial equation: 



x2 + X + 1 







This example is almost too trivial for 
illustration on my program. It took 
barely five seconds to yield the answers: 



X = - 0.499999999 ± 0.866025403i 

on my Apple 11+ computer, a result 
that is more accurate than Peter's. Such 
an oversimplified case certainly cannot 
be regarded as typical. Had Peter tried 
with even slightly more complicated 
examples, he would have realized the 
limitations of his method. I am quite 
sure that Peter's method is unlikely to 
be successful with either of the ex- 
amples I used in my article. 

I will leave it to your readers to 
judge whether my method is superior. 
The best way for Peter to support his 
contention that my algorithm is not 
novel is to cite some earlier paper 
describing the de Moivre extension of 
NR's method that I have proposed. 

Dr. P.P. Ong 

Physics Department 

National University of Singapore 

Kent Ridge 

Singapore, 0511. 

Send your comments, criticisms, or 
ideas to Letterbox, MICRO magazine, 
P.O. Box 6502, Amherst, NH 03031. 



ACORN 68666' 

AnACHED PROCESSOR 







Available for APPLE II. IBM PC, 
RS232C Terminals, and OEM. 

HARDWARE 

• 68000 at 8 MHZ no wait states 

• 128KRAMand32KROM 

• Two RS 232c serial ports 

• Real time clock and vectored interrupts 

• Parallel Host Interface 
SOFTWARE 

• Monitor with built-in assembler 

• Host Computer Interface 

• S-record compatible development system 
Send $10 for 100 pp Users Manual Refunded with order 

or free brochure. 

Coming Soon 

Hi Resolution Color Graphics Dispfoy Board 

512 X 512 pixels with RGB output, NEC 7220 controller with 128K RAM, 

4096 Colors Available, use with ACORN or as separate peripheral. 

OEM kit with manuals, schematics, and circuit board for $100. 

ACORN SYSTEMS INC. 

4455 TORRANCE BLVD., #108 • TORRANCE, CA 90503 

'Apple II is a trademark of Apple Computer Co. 
'IBM PC is a trademark of IBM Corporation. 
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THE MONTHLY JOURNAL FOR 
COMMODORE COMPUTER USERS 



SUPt» 






VIC-20 



GET YOUR MONEY'S WORTH 

You've probably made a sizeable investment in your computer 
equipment. COMMANDER can help you make the most of it. 
Each issue brings you the no-nonsense advice you need to 
J on the leading edge of this constantly changing 
'field. COMMANDER will be your reference 
f to the v^orld of computers . . . with the best, 
most comprehensive coverage you can get!! 

Subscribe now and take advantage of our 
limited offer of $4 off the one year subscription. 
C 1 YR. U.S. $220 2 YR. U.S. $40D 3 YR. U.S. $58 

iPricei da not include $4 DiscountlPrices m U.S. Funds 
Washington residents please add 7.8% sales tax 

—Subscription Orders Only— 
Toll Free Number: 1-800-426-1830 

(except WA, HI, AK) 

COMMANDER 

P.O. BOX 98827 

TACOMA, WASHINGTON 98498 

(206) 584-6757 
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When you 
least expect it, 

ZAP!!! 



In a few millionths of a second, common electrical surses and spikes 
can enter your data processing equipment and cause memor/ loss, 
false logic and misregistration. Surges very often do permanent 
damage to microcircuitry, 

FLEXIDUCT Surge Suppressors catch surges and spikes before they 
have a chance to enter your equipment In billionths of a second 
(Nanoseconds), FLEXIDUCT Surge Suppressors dissipate surges and 
spikes from any side of the line (most protect only one side). 
Model FS-P plugs into the wall outlet to protect that outlet and all 
other outlets on that circuit* For safety, it is fused to protect from 
overloads. 

No computer should be without the protection of a FLEXIDUCT Surge 
Suppressor...especially yours! Write or call for further information. 
Available from office products retailers. 



i2ZIZZZ^7® Surge Suppressors 



a product of Winders & Geist, Inc P.O. Box 83088 Lincoln, NE 68501 402/474-3400 
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Commodore Compass 



by Loren Wright 

POWER64 Makes Programming Easier 

How would you like to be able to hit a single key on 
your Commodore 64 and have "POKE 53281/' 
appear instantly on the screen? This "instant 
phrase" feature is only one of the many capabilities of 
POWER64. 

To start, as soon as the POWER64 system is loaded 
in, many of the keys have new functions. For instance, 
the shifted "R" key immediately types "RETURN" on 
the screen, and the Commodore key and the "L" key 
cause " LEFTS (" to be printed. Also, the program listing 
behaves differently. Just move the cursor past the top or 
bottom of the screen and the listing begins to scroll, line 
by line. There is no longer any need to keep your finger 
poised nervously over the STOP key for fear of missing 
that vital line. 

There is an AUTO command that automatically 
prints the next line number as you hit RETURN. If you 
quit the sequence (by hitting RETURN on the line with 
only a line number), you can resume programming where 
you left off simply by typing AUTO again. Of course you 
can specify the increment. 

The DELETE command allows you to delete a whole 
range of lines with a single command — no more one-by- 
one line deletions! The RENUM command is the most 
powerful Tve seen. It actually lets you renumber parts of 
your program, which means you can keep all your 
subroutines beginning on even thousands! 

So much for the everyday commands. There is a lot 
more. As I mentioned at the beginning, you can redefine 
any key to a phrase, which could even be something like 
"FOR 1=1 TO 100: ?L GOSUB 2000: NEXT I". When 
you hit the redefined key (usually a shifted one), the 
whole phrase is instantly typed on the screen for you. 
You can even redefine a key to execute a whole 
subroutine consisting of many lines. 

POWER64 has one of the most powerful search and 
search-and-replace packages I've seen: there are wild 
characters, a whole-program or next-occurrence opera- 
tion, and a convenient repeat. Even the syntax is easy to 
remember. 

Next, there's a whole set of debugging commands. 
The star of the show is the TRACE command, whose op- 
tions include displaying at the top of the screen or in-line 
and full-line displays with variable value or just line 
numbers. After you invoke the TRACE command and 
type RUN, you can single step, trace continuously, or 
even execute for a while without any trace display. 
Responses to GET and INPUT statements are handled 
easily. The WHY command lets you know where in the 
program line an error occurred, and the DUMP command 
displays the values of all variables (except arrays). The 
DUMP display is such that you can easily change the 
value of any variable and CONTinue program execution. 

The FIX and PTR commands restore the BASIC 
pointers that get fouled up, especially when you have 



loaded a machine-language program to a strange place. 
FIX also reinitializes POWER64. EXEC is a very powerful 
command that allows you to turn control over to a 
logical file. 

TEST lets you LOAD (or type in) and RUN a second 
program without destroying the first. BACK sends you 
back to the first program. 

That just about covers the capabilities of POWER64, 
but there is more to be considered. First, POWER64 is 
relocatable and automatically adjusts itself to the current 
Commodore 64 memory configuration. That means that, 
if you have a cartridge in place that takes memory from 
the top of BASIC, POWER64 will load in automatically 
below. (It does work with the C64-Link cartridge.) 

Brad Templeton, the author of POWER64 and 
POWER (for the PET, reviewed in MICRO 50:69), has 
written a convenient resident assembler called PAL, 
which works extremely well with POWER64. The PAL 
assembler will be reviewed in a future issue of MICRO. 

The manual, by Jim Butterfield and Brad Templeton, 
does well at both teaching the newcomer how to use the 
product and serving as a good reference. There are several 
appendices that help the advanced programmer get even 
more from POWER64. 

It is easy to add your own commands and default-key 
definitions to POWER. In fact, a disk-oriented expansion 
package called MOREPOWER is included on the disk. 
MOREPOWER makes most disk tasks considerably 
easier. A single key will get you the disk directory or the 
disk-error messages. You can LIST a program (or even a 
sequential file!) from the disk without destroying your 
current program. There are SIZE and START commands 
that can read the length or beginning (for ML programs) 
of any program file on disk. You can LOAD or LOAD and 
RUN a program from a directory listing by simply mov- 
ing the cursor to the left of the entry and hitting a single 
key. You can MERGE one BASIC file into another. (This 
is also possible with the EXEC command, but more is in- 
volved.) There are several others. 

To prove that I haven't been paid off for this glowing 
review, I'll mention a couple of negative items. The 
AUTO command works in an annoying manner (at least 
for me). When you go to a previous line to make a 
change, the system doesn't recognize that you are no 
longer cranking out lines in the expected sequence. 
Other AUTO commands I've seen can handle this. 

The price ($99.95) is certainly fair for all the things 
you get, but you should consider whether you really need 
everything POWER64 has to offer. Unless you do a fair 
amount of programming, the answer may very well be 
no. The manual mentions a cartridge version, which 
would make using the package more convenient, but less 
flexible. This is the only practical way that people 
without disk drives could use it. 

POWER64 is available from Pro-Line Software Ltd., 
755 The Queens way East, Unit 8, Mississauga, Ontario 
L4Y 4C5 (416-273-6350). AICIK)" 
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Products for Commodore, Atari, Apple, and others! 
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THE MONKEY WRENCH II 

A PROGRAMMERS AID FOR ATARI 800 

NEW AND IMPROVED - 18 COMMANDS 

PLUGS INTO RIGHT CARTRIDGE SLOT 




$59.95 



It you are a person who likes to monkey around with 
the ATARI 800, then THE MONKEY WRENCH tl is 
for you!! Make your programming tasks easier, less 
time-consuming and more fun. Why spend extra 
hours working on a BASIC program when the 
MONKEY WRENCH can do it tor you in seconds. 
It can also make backup copies of boot type 
cassette programs. Plugs into the right slot and 
works with ATARI BASIC cartridge. 
The MONKEY WRENCH provides 18 direct mode 
commands. They are: AUTO LINE NUMBERING - Pro- 
vides new line numbers when entering BASIC program 
lines. RENUMBER - Renumbers BASIC'S line numbers 
tncludmg internal references. DELETE LINE NUMBERS 
- Removes a range BASIC line numbers. 
VARIABLES - Display all BASIC variables and their current value Scrolling - Use the 
START & SELECT keys to display BASIC tines automatically Scroll up or down BASIC pro- 
gram FIND STRING - Find every occurrence of a string. XCHANGE STRING - Find every 
occurrence of a string and replace it with another string. MOVE LINES — Move lines from 
one part of program to another part of program COPY LINES — Copy lines from one part 
of program to another part of program. FORMATTED LIST — Print BASIC program in 
special tine format and automatic page numbering DISK DIRECTORY — Display Disk 
Directory CHANGE MARGINS — Provides the capability to easily change the screen 
margins MEMORY TEST - Provides the capability to test RAM memory CURSOR 
EXCHANGE - Allows usage of the cursor keys without holding down the CTRL key 
UPPER CASE LOCK - Keeps the computer m the upper case character set. HEX CON- 
VERSION — Converts a hexadecimal number to a decimal number DECIMAL CONVER- 
SION — Converts a decimal number to a hexadecimal number MONITOR — Enter the 
machine language monitor 

In addition to the BASIC commands, the Monkey Wrench also contains a machine 
language monitor with 16 commands used to interact with the powerful features of the 
6502 microprocessor 
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VIC RABBIT CARTRIDGE 
AND CBM 64 RABBIT CARTRIDGE 

NEW FEATURE! 
DATA FILES! 



UK 
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64 
RABBIT 



"High Speed 

Cassette 

Load and Save'' 

$39.95 

(mcluaes cartnage 
and manuai 1 




for VIC 



Don't waste your Life away waiting to LOAD 
and SAVE programs on Cassette Deck. 
Load or Save 8K in approximately 30 seconds' 
Try it— your Un-Rabbitized VIC or 64 takes 
almost 3 mmutes. It's not only fast but VERY 
RELIABLE. 

Almost as fast as 1541 Disk Drive' Don't be fool- 
ish — Why buy the disk when you can get the 
Rabbit for much, much less! 
Allows one to APPEND Basic Programs' 
Easy to install — just plugs in. 
Expansion Connector on rear of the VIC Rabbit. 
Works with or without Expansion Memory 
Works with VIC or 64 Cassette Deck. 
12 Commands provide other neat features. 
Fast Data Files - two data file modes 
Also Available for 2001. 4001. and 8032 
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STCP 



- 300/1200 Baud 



Standard Terminal Communications Package 

■PFO- lOD OOA CP- Di '>D2 BELL i 2 30 00 iO M 36 

Doni settle for non-standard Communications Protocol' 
Access Micro Net Source Bulletin Boards. Local Main- 
frame, etc 

• Complete PacKage - includes RS232 inter 
face Board and software Idoes not include 
modem! 

» Communicales m Industry Standard ASCII 

• Upload/Download to/from Disk 

• Automatic File Translation 

• Can be controlled from keyboard or user sup 
plied basic or machine language program 

Specify 3.0 or 4 ROMS or 8032 Commodore Computer 
4040 or 8050 or PEDISK l| Disk or CBM64 on 1541 

Price: $129.95 
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ATARI AND PET 
EPROM PROGRAMMER 

Programs 2716 and 2532 ~" 
EPROMs, Includes hardware 
and software. PFT = $75.M - 
ATARI (includes sophisticated 
machine language monitor} = 
$119.95 




Prownter Printer - Excellent dot matrix print parallel - 
Serial Call IEEE = Call 



PET BASIC SCROLL PROGRAM 

Scroll thru Basic Programs using cursor 
up/down keys. Specify connputer $6.00 on 
cassette, $9.00 on diskette. 

65C02 MAE 

Same as our MAE but enhanced for the new 
65C02 Opcodes. Turns your computer into a 
development system for the new ROCKWELL 
65C02 Microprocessor. $200.00 — Specify 
Computer. 



EHS's CBM64 Monitor Cartridge 
$25.00 

Every Commodore 64 owner 

should have this Machine Lan- 
guage Monitor to explore the 
interesting and exciting world of 
Machine Level Code. If you can't 
think of a need for it now, some 
day you'll wish it was in your 
Software Library. Commands in- 
clude Display Registers/Memory, 
Disassemble , Assemble, Transfer, 
etc. Over 20 commands. 
Cartridge and Manual - 25.00. 



More than just an Assembler/Editor! 
Now for the "64" - - » ■- 

MAE 



Its a 

Professionally 

Designed 

Software 

Development 

System 
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for 

PET 

APPLE 

ATARI 

New 
rice^ 



Blast oft with the software used on the space 
shuttle project! . 

• Designed lo improve Programmer Productivity ^^9 

Noneedtoreiearn ^^* 



• Simiiar syntax and cor 
peculiar syoiaxes and conrnands vi/hen /ou go 
from PET to APPLE 10 ATAHI 

• Coresident Assembler'Editor No need to toad 
the Editor then the Assernbier then the Editor etc 

■ Also includes Word Processor Relocating Loadei 
and much nnore 

• Options EPROM Prograrrimer ynimpfemented 
opcode Circuitry 

• .STtLL NOT CONVINCED Send *or free spec sheet' 






5% INCH SOFT 
SECTORED DISKETTES 

Highest quality. We use them on 
our PETs, APPLES, ATARIs, and other 
computers. $22.50/10 or $44.50/20 




EPROMS 2716 = $4.50 2532 = $750 

Over 40 Commodore Programs by Baker (on 4Q40) = 



3239 Linda Dr. 
Winston-Salem, N.C. 27106 
(919)924-2889 (919)748-8446 
Send for free catalog! 
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ATTENTION ALL 
MICROCOMPUTER OWNERS!! 

CSE MEANS MORE 

Introducing our expanded product line 



We now distribute MORE software, liardware and 

accessories 

We now deal with MORE macliines than ever before 

We want to mal^e you a satisfied customer MORE than 

the "other" guys 

Call or write us for information on whatever you're 

looking for 

You'll get our best service because it means MORE 

to us 

HERE'S JUST A SAMPLE OF WHAT WE OFFER: 

Anchor Automation, California Computer Systems, 

DMP Systems Software, D.Q.F.L.S. Word Processing 

Software, Diablo, Eiectrohome, D.C. Hayes, Mountain 

Computer, NEC, Microsoft, Practical Peripherals, 

Videx, Zenith and SO MUCH MORE!! 

We carry a variety of disi^ettes, O.S.I, software, 

educational software, and games too! 




MICRO 



Box 50 • 291 Huntington Ave. Boston 02115 
617423-9501 



OUR 



CDi 




PAGES 
108 -109 
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From Here To Atari 



Paul 8. Swanson 



Several inquiries came in concerning the listing for the 
Mode 10 Painter Program, Part I, appearing in the July 
issue of Micro. The listing was typeset, which is a dif- 
ficult format to decipher into the proper keystrokes when 
translating the graphics characters onto the Atari com- 
puter. The screen format listing in September should help 
you find any bugs. To make your screen conform to the 
40-column format of these listings, POKE 82,0 before 
entering the program. That will set your left margin at col- 
umn zero and give you a full 40-column screen. 



GTIA Modes 

The painter program also inspired a few questions 
about the three GTIA modes. All three of the modes are 
variations of GRAPHICS 8 screens. The shadow of the 
hardware register PRIOR, which is located at | decimal) 
623, contains two switches that control the four possible 
interpretations. Since GRAPHICS 8 and GRAPHICS 
screens both use the same type of interpretation, this loca- 
tion can also be used to control a GRAPHICS screen so 
that it can be used as a GTIA character graphics screen. 

Specifically, the interpretation for the GTIA modes all 
use four bits, so each byte contains the information for 
two pixels. If GRAPHICS 9 is declared, or a POKE 623,64 
is executed, each four bits will be interpreted as the 
luminance of the hue contained in color register four (SET- 
COLOR 4,H,0 where H is the background hue). The 
luminance should be set to zero. If it is not zero it will 
create some undesirable effects on the display and at least 
some of the selections of luminances will be lost. 

GRAPHICS 11 is the inverse of GRAPHICS 9. This in- 
terpretation happens in response to either a GRAPHICS 1 1 
statement or POKE 623,192. All 16 hues will appear at the 
luminance stored with SETCOLOR 4,0,L (L is the 
luminance). The luminance of the black background is 
always zero, independent of the luminance selected. Using 
a hue number other than zero alters the background color, 
but has an undesirable effect on the hues as setting the 
luminance has on the luminances of a GRAPHICS 9 screen. 

GRAPHICS 10, which corresponds to a POKE 623, 128, 
is the only one that uses color registers other than register 
four. All nine color registers, which include the ones 
altered with SETCOLOR 0,... through SETCOLOR 4,... 
and the four used for the players and missiles (POKE 704, . . 
through POKE 707,..) are used on this screen. The allowed 
color values on the screen are zero through nine. The other 
seven are not practical to use, although they will produce 
colors. The screen background is taken from player zero's 
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color and can be set with a POKE 704,HUE* 16 + LUMI- 
NANCE. POKE 705 through 707 for the colors one through 
three. SETCOLOR 0,... through SETCOLOR 4,... control 
colors four through nine. Notice that although SET- 
COLOR 4,... sets the background color in most other 
modes, it is a foreground color in mode 10. Mode 10 is the 
only mode that uses location 704 for the background color. 
The colors set with SETCOLOR 0,... through SETCOLOR 
4,... sue, in the same order, stored at locations 708 through 
71%, so POKE 704 + COLORREG,HUE*16+ LUMI- 
NANCE, where COLORREG is the color number to set, 
HUE is the hue (0 through 15) and LUMINANCE is the 
luminance value (even numbers in the range to 15). 



EREDIT 

EREDIT, by EHR3, Inc., is a newly introduced editor 
that can be used to create and/or edit BASIC or assembly- 
language files. It will also save all of the changes made to 
the file and allow you to "back out" of changes you have 
made, all the way back to the original version if you wish. 
It uses the files on disk as BASIC LIST files, or the 
equivalent in assembly language (a TYPEd file from the 
Synassembler, for example) . 

All of the screen editing controls normally used when 
entering or editing a BASIC program are available in this 
editor (i.e., the four arrow keys, INSERT, DELETE, etc.). 
It is also possible to be editing one file and list another file 
on the screen. Combining this with the full screen editing 
allows you to take lines, with or without additional 
editing, directly from another file into the file you 
are editing. 

EREDIT is controlled by 31 commands. Several of 
them are DOS commands, allowing operations like file 
delete, file copy, directory list, disk format, lock and 
unlock, to be performed without entering DOS. Several 
commands allow statements to be relocated in the pro- 
gram text and renumbering is available. There is also an 
overlay option that prevents you from redefining a line. 
This can be very valuable in preventing accidental dele- 
tions of lines in the program being edited. The COMPARE 
command allows line-by-line comparison between pro- 
grams, noting every line that is different in comparing 
two files (including lines appearing in one file but not 
the other). 

There is no BASIC syntax checking in EREDIT so it is 
possible to create and/ or edit BASIC files only to find 
errors while ENTERing it into BASIC later. This is not too 



(Continued on next page) 



For affordable business 
softujare, put MicroSpec in 



[[MEMORY] 

l_l LJ LJ LJ LJ LJ 



MicroSpec is serious about offering sophisticated busi- 
ness programs at an affordable price. And there's no 
skimping on the quality or capabilities of the programs. 
Whether you're using DBM, INV, 6/U PAX A/R, A/P, Fixed 
Asset Rental Property Management Mail List or 
Checkbook Manager you'll find MicroSpec programs 
offer the greatest flexibility and optimum performance 
for your specific needs. And you'll like the price! 
Proven MicroSpec business programs are available NOW 
for the Commodore 64 and VIC 20 (trademarks of Com- 
modore). Applications for other popular micros will be 
coming soon. 

A leader in the design of affordable business systems - 
MicroSpec. Put it in your memory. 

For more information, contact your local dealer. 

MicroSpec, Inc. 

P.O. Box 863085 • Piano, TX 75086 
(214)867-1333 

(Dealer inquiries welcome) 




COMPUTER 
ACCESSORIES 



ERRORS-DOWNTIME-SERVICE 

A speck of dust dirt, or magnetic oxide on the read/write head of your 
floppy disk can cause data transfer errors, a disk crash, or even a costly 
disk drive failure. Regular use of Perfectdata head cleaning diskettes 
can keep your drive heads clean and your system up and running. The 
Perfectdata system can be used on single or dual-sided floppy disk 
drives. (Comes complete with 2 cleaning diskettes, a 4 oz. bottle of CS- 
85 cleaning solution and full instructions.) 

5.25" Disk Drive Cleaning Kit $22,75 
8" Disk Drive Cleaning Kit $22.75 

ORGANIZE AND PROTECT YOUR DISKETTES 

Organize your diskettes with an Innovative Concepts Flip 'N' File from 
Mercury Micro. Holds up to 50 diskettes in a handsome smoke-colored 
transparent plastic case. 

Case for 5 .25" Diskettes $23. 75 
Case for 8" Diskettes $29,75 

WHATS YOUR FAVORITE NUMBER? 

New for spring. Top quality shirts with "64" or "20" printed in large 
numerals on both front and back. 50/50 blend will not shrink Specify 
color and size and number choice. Available in red or blue, 
S-M-L-XL 

$7.50 each 

ORDERING INFORMATION 

Phone (301) 994-1122 
SHIPPING 

Add $1 .50 to all orders for shipping. We pay balance for UPS service on 
all ordera Add $2.00 for COD. Maryland residents please add 
5% state sales tax 

WRITE OR CALL FOR FREE COMPUTER ACCESSORY CATALOG; 

SURGE PROTECTORS, DUST COVERS, BOOKS, DISK MAINTENANCE BLANK 

MEDIA AND MUCH MORE. 



Mercury Micro Inc. 
Dept. F 

Cherry Field Road 
Mercury llficro Drayden, Md. 20630 
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SPECTRUM 

32K RAM Button $ 2.99 

h4ANOS Reference Card. -....-$ 3.99 

64K RAM Button $ 4.99 

Coco Editor Assembler $ 6.95 

Coco Tech Manual -■-$ 7.95 

16K RAM Chips | 9.95 

Coco Secrets Revealed Book.S 14.95 

LED On/Off Indicator ..-$ 14.95 

Coco Light Pen $ 19.95 

ATARI Joystick Interface $ 19.95 

Video Interface Kit $ 24.95 

16K-32K Upgrade Kit $ 25.95 

6883 SAM Chip $ 29.95 

6809E CPU Chip 4 29.95 

Basic ROM 1.1 4 ^-^ 

64K RAM Chips .—-$ 49.95 

MARK DATA Keyboard $ 69.95 

BOTEK Printer Interface $ 69.95 

Extended Basic ROM $ 84.00 

Disk Controller. ^139.95 

COLOR COMPUTERS $ CALL 

Call or Write for FREE Catalog 

SPECTRUM PROJECTS 

93-15 86th Dr Woodhaven, New York t1421 

Add Sales Tax & $3.00 for S/H 

#0 Dealer/Club Inquires Invited ## 

212 441-2807 
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Q-fOfcl 

Questionnaire Analysis Software 



» Microcomputer based 

Avoid the expense of contract services - do everything in-house on 
your own Apple 11+ microcomputer. 

• Easy data entry 

Avoid time consuming keypunching. Uses respondent-marked cards 
entered with an Optical Mark Reader (keyboard entry also possible). 

• Comprehensive data analysis 

Sort on any variable(s), tally all responses, conduct cross tabs, 
correlations, linear regression, frequency distributions, and more. 

• Complete editing capabilities 

Weight items, derive composites, add or delete items, and more. 



■ Easy-to-use 

Programs are user friendly, menu dri 
computer expertise is required. 



nd interoctive. No special 



From Here to Atari (continued) 



Coll or send for more information today. 

SCJEI^iTJFJC SaFTKIflRE flSSQCifllES, LTD. 

Apple \\+ is a registered trademark of Apple Computer, Inc. 



serious a drawback, since the corrections are easily done 
from BASIC at that point. The only other drawback I noted 
was the fact that there was no immediate mode capability, 
or anything equivalent. Generally, when I am writing or 
editing a program, I use the immediate mode to execute 
ASC ( - CHR$( conversions or perform calculations. 

The user manual is in the reference book style, listing 
all of the commands in alphabetical order with adequate 
descriptions of each. Also, if the EREDIT disk is in the 
disk drive, the command HELP followed by a command 
name will list a brief description of the identified com- 
mand on the screen. In both the manual and on the screen, 
the defaults are listed with the descriptions. 

In summary, EREDIT can be a valuable tool to use in 
the development of software in BASIC or assembly 
language. It is available at EHR3, Inc., 174 Summit 
Avenue, Summit, NJ 07901. Suggested retail price is 
$49.95. Inquiries are invited at that address by mail or by 
telephone at |201) 277-6785. It is compatible with the 
Atari 1200XL computer as well as the Atari 400 and 
800 computers. 



Next Month 

I will review two software packages in next month's 
column. One is XBASIC from SUPERware, a utility pro- 
gram that stays in memory when a BASIC program is being 
written and executed. It provides many interesting 
capabilities not available in the standard Atari BASIC 
relating to arrays, strings, player/missiles, and DOS. The 
other program is S.A.M. (Software Automatic Mouth) 
from Don't Ask Software, which adds a sophisticated 
speech synthesizer to your Atari with no additional hard- 
ware. These topics will be presented along with a simple 
way to implement a display-list interrupt, which can be 
used to change character sets, colors, or the switches that 
control the GTIA interpretation so that a text window may 
be added to a GTIA screen. 



You may contact Paul at 97 Jackson St., 
Cambridge, MA 02140. 
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FOR YOUR APPLE II 

'^P'^ Industry standartf products at super saver discount prices 



SOFTWARE 

ARTSCI ''^' '■''= 

Magtcalc $149.00 $ 99.00 

Magic Window 149.00 99.00 

DBase (Apple) 695.00 475.00 

BRODERBOND 

Payroll S395.00 $295.00 

Arcade Machine 59.95 39.95 

Serpentine 34.95 24.95 

Galaxy Wars 24.95 20.95 

DATAMOST 

Aztec $ 39.95 $ 27.95 

Casino "0" 39.95 27.95 

Worlds 29.95 20.95 

Mating Zone 29.95 20.95 

Pandoras Box 29.95 20.95 

Swashbuckler 34.95 24.95 

Roundabout 29.95 20.95 

INFOROIVI 

Zork1,2, 3 $ 39.95 $ 27.95 

Planet Fall 49.95 32.95 

Starcross 39.95 27.95 

PEACHTREE 

Accounts Payable $400.00 $295.00 

Accounts Receivable 400.00 295.00 

General Ledger 400.00 295.00 

Inventory 400.00 295.00 

SENTIENT 

Congo $ 34.95 $ 24.95 

Cyborg 34.95 24.95 

Goldrush 34.95 24.95 

SIRIUS 

Bandits $ 34.95 $ 24.95 

Epoch 34.95 24.95 

Fly Wars 29.95 20.95 

Beer Run 29.95 20.95 

Outpost 29.95 20.95 

Snake Byte 29.95 20.95 

Sneakers 29.95 20.95 

Joy Port 49.95 37.95 

STRATfGIC S)IVIUU\TIONS 

Bomb Alley $ 59.95 $ 42.95 

Computer Combat 59.95 42.95 

Ambush 59.95 42.95 

Quarter Back 39.95 27.95 

Germany 1985 59.95 42.95 

The Warp Machine 39.95 27.95 

Gettysburg 59.95 42.95 

DANA 

Series Baseball S 29.95 $ 20.95 

WizPlus 39.95 27.95 

T.G. Joystick 59.95 45.00 

Select-A-Port 59.95 45.00 
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SPECIAL AND NEW 



BASIS COIVIPUTER 

128K Memory • 80 Column Card • C. P.M. 3.0, 
DOS Perfect Calc • Perfect Filer • Perfect Speller • 
Perfect Writer • 2 Disk Drives • Monitor 
Special $2295.00 



FRANKLIN ACE 1000 

64K, 1 Disk Drive • 64K Expand-A-Ram •Magicalc 
Special $1595.00 

64K Expand-A-Ram $ 225.00 

128K Expand-A-Ram $ 275.00 

P.S. Buffer Card 
Stand Alone $ 155.95 

Graphltti Card 
(Specify Printer) $ 89.00 



PRINTERS 

NEC 8023 $ 395.00 

NEC 8023 with 
Parallel Interface/Cable $ 449.00 

OKI 82A 
80 COI./120 cps $ 439.00 

OKI 83A 
136col./120cps $ 695.00 

Brother 
Letter Quality $ 889.00 



ACCESSORIES 
Disk Drives with Controller 

(Apple) $ 225.00 

VersaCard $ 169.00 

With Graphics $ 203.00 

P.S. Buffer Card 
16K Buffer $ 105.95 

P.S. Buffer Card 
with Graphics & Cables $ 189.95 

16KCard $ 65.00 

Floppy Discs 

BoxofTen $ 25.00 

With Order ..$ 19.90 

PRT1 
Parallel with Cable $ 79.00 



MICRO 



BUSINESS SPECIAL 

Includes 80 Column Z-80 Card • 16K Card • 
Wordstar • Supercalc 

Special $825.00 

D.O.S. Programming SPECIAL (Apple II) 

80 Column Card • Magicalc • Magic Window • 
Magic Speller -leK Card 

Special $449.00 

3-CARD SYSTEM 

80 Column 16K Card • Z-80 Card 

Special $349.95 

MODEMS 

Smartmodem 300 

Special $229.00 

Smartmodem 1200 

Special $545.00 

D-Cat Modem 

Special $164.95 

MONITORS 

Amdex Amber $159.95 

USI Green $159.95 

USI Lo/Res Color $299.95 

80 COLUMN CARDS 

Smarterm 2 $129.00 

Videx Video Term $215.95 

Ultra Term $289.95 

Z-8G CARDS 

Microsoft Card $229.95 

Apple HE, 64K, 80 Column $ 99.00 

EDUCATIONAL SOFTWARE 

Spelling/Reading Primer $ 29.95 

Perception $ 20.95 

Counting Bee $ 23.95 

Word Scrambler $ 15.95 

Fractions $ 36.95 

Intro. Algebra $ 21 .95 

Frenzy/Flip Flop $ 25.95 

Wordstar $305.95 

SuperCalc $175.00 

VisaCalc $179.00 

Spellstar $175.00 

All equipment shipped factory fresh. Manufacturers' warranties 
included. California customers add 6V2% tax. Include payment by 
personal check, money order, or cashier's check with order and 
SGC will pay shipping charge. Call for amount of shipping charge 
when paying by credit card. 

All items are normally in stock 

4tS)490-3420 

... And we'll be here to help after you 

receive your order. Feel free to call the SGC 

^« Technical Staff for assistance. 

Th« nuiit order specialists 

342 Quartz Circle, Livermore, CA 94550 
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Apple Slices 



by Jules Gilder 



Apple's Lisa computer is in the 
news again this month along 
.with the Russians, typesetting 
by computer, and an alternative to hard 
disk drives. Those of you who have 
been following developments in com- 
puter hardware during the last six 
months are no doubt aware of the sheer 
joy expressed by IBM PC owners when 
they found out that they could turn 
their $4000 IBM PC into a $1500 Apple 
by simply plugging a card into the 
IBM computer. The much larger soft- 
ware base of the Apple II computer 
makes this $680 accessory quite attrac- 
tive, and it is capable of running about 
98% of all Apple software. {Editor's 
note: MICRO has a review copy of the 
Quadram Quadlink. It appears to run 
any software that does not require any 
specific hardware other than a printer. 
It emulates an Apple II as well as the 
Apple III does. I 

Now it looks like the shoe is going 
on the other foot. According to industry 
sources, Apple is considering the 
possibility of making MS-DOS, the 
operating system used on the IBM PC, 
available on the Lisa coraputer. Since 
Lisa uses a 68000 microprocessor, it 
will be necessary to add an 8088 or 
8086 microprocessor to the Lisa in 
order to let it run MS-DOS. The Unix 
operating system is also being 
developed for the Lisa, and speculation 
is that Concurrent CP/M-86 is being 
considered too. 

The rush to get more operating 
systeras working on the Lisa seems to 
be Apple's reaction to IBM's dom- 
inance of the office environment. Be- 
cause of the small initial market for the 
$10,000 Lisa, the development of soft- 
ware for it has lagged seriously and only 
a small number of outside programs has 
been developed. Allowing the Lisa to 
run MS-DOS would open up the possi- 
bility of permitting the Lisa to read and 
write IBM disks directly. The only 
possible problem here is that Apple is 
using a specially designed disk drive 
with the Lisa and it might not be able 
to read the IBM disks. 



Russian Apples 



The Apple II computer is so popular 
that Apple has been having a lot of 
trouble with counterfeit computers be- 
ing manufactured in the Far East. Now 
it seems that the Russians are getting 
into the act, too, and are producing 
their own counterfeit Apples. Unlike 
the counterfeits from Taiwan, the Rus- 
sian clone is not expected to surface in 
the United States but will instead be 
going to schools and research centers 
inside Russia. 

Setting Type with Your Apple 

Many companies have discovered 
that they can use a word-processing 
program on their Apple computer to 
prepare material for a typesetting 
machine. The text is then sent by 
modem to the typesetter and camera- 
ready copy can be produced. Preparing 
this text with a word processor, while 
acceptable, is not really a good way to 
do things because word processors do 
not have all of the capabilities of a 
typesetting system, and it's almost im- 
possible to tell what the final copy will 
look like. But now a small California 
company called The Type Source has 
developed a program that turns an 
Apple //e with a CP/M card into a full- 
blown typesetting terminal. 

The program, known as STL (for 
Simplified Typesetting Language), sells 
for $695 and can be used to interface 
directly with a wide variety of photo- 
typesetting machines including those 
from Compugraphic, Mergenthaler, 
APS, AM Varityper, and Itek. By per- 
mitting the user to enter all of the stan- 
dard typesetting commands and giving 
him a display that is similar to those 
found on regular typesetting terminals, 
it is no longer necessary for the type- 
setter to get involved and translate the 
user's commands into typesetting com- 
mands. The net result is a saving of 
30% to 50% in typesetting costs. The 




program is capable of working with up 
to eight different type faces at once and 
can produce very small 5. 5 -point char- 
acters or extra large 74-point charac- 
ters. The package comes with a special 
telecommunication package for type- 
setters, a special HELP menu, and com- 
plete documentation including basic 
lessons in typesetting terminology and 
functions. STL will be available for the 
Apple //e in November 

An Alternative to Hard Disk Drives 

For those of you who have been 
thinking of buying a hard disk drive, 
take a look at the VI 200 disk drive 
from Vista before you do. While this is 
not a hard drive, it is a system that can 
easily store up to 6 megabytes of data. 
The system uses a special cartridge that 
holds five removable 5^/4 -inch floppy 
disks. Each disk stores up to 1.2 mega- 
bytes of data on it. While each of the 
floppies looks a lot like the standard 
Apple floppy, looks can be deceiving. 
The storage capacity of these disks is 
equal to that of double-sided, double- 
density 8-inch floppies. 

The drive used in the VI 200 is a 
special one that is manufactured only 
by a company called Amlyn. In use, the 
VI 200 selects the disk you specify, 
pulls it away from the others in the 
pack with a picking arm, and feeds it 
into the drive mechanism. While this 
may seem like a Rube Goldberg-type of 
device, in practice it works very well 
and in six months has never failed to 
operate properly. Because the angle of 
the cartridge in the drive changes with 
the disk selected, and the disk has to be 
loaded into the drive, initial access to 
data is a little slow. But once the disk is 
loaded, access to any of the 1.2 mega- 
bytes of data on it is as fast as that of a 
hard disk drive. That's because it loads 
data into the Apple the same way hard 
drives do — by using direct memory ac- 
cess (DMA|, a technique that bypasses 

(Continued on page 20) 
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for 
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diskettes 

$1.29 each! 

Now get Wabash Quality at a CE Price 

For over 1 7 years, Wabash has been making high quality 
and dependable computer products. Wabash diskettes 
are made to provide error-free performance on your com- 
puter system because every diskette has been totally and 
hypercritically tested. Since you can now buy Wabash 
computer products directly from CE, the world's largest 
distributor of magnetic media, you can now get maximum 
savings on every order. You can even order toll-free. 

New Wabash Six Year Warranty 

The quality of Wabash diskettes is stressed throughout 
the entire manufacturing process. After coating, all Wabash 
diskettes go through a unique burnishing process that 
gives each diskette a mirror-smooth appearance. Wabash 
then carefully applies a lubricant that is specially form- 
ulated to increase diskette life. Then, to keep out foreign 
particles, a unique heat seal bonds the jacket and liner 
together to help prevent contamination. After 1 00% hyper- 
critical testing and certification, Wabash then packages 
each diskette, (except bulk pack) in a super strong and 
tearresistantTyvek®evelope.ThefinalWabash product is 
then shrink-wrapped to insure cleanliness and reduce 
contamination during shipment. Wabash diskettes are so 
very reliable that Wabash now offers a six year warranty in 
case of defects in materials or workmanship on all diskettes 
purchased directly from Communications Electronics. 

New.. .Wabash Diskette Duplication Services 

Communications Electronics has teamed up with Wabash to 
provide a single-source solution for the diskette duplication 
requirements of software developers, OEM's and distributors. 
All service is in-house, to give you fast, dependable service. In 
most cases, delivery can be completed in five days. Whether 
you require 100, 1,000, or 10,000 copies per week, call CE 
firstfora no obligation price quote. For additional information, 
please write us on your letterhead with your requirements. 

CE quant. 
SAVE ON WABASH DISKETTES 100 price 

Product Description 

8" SSSD IBM Compatible (128 B/S, 26 Sectors) 

8" SSSD Shugart Compatible, 32 Hard Sector 

8" SSDD IBM Compatible (128 B/S, 26 Sectors) 

8" DSDD Soft Sector (Unformatted) 

8" DSDD Soft Sector (256 B/S, 26 Sectors) 

8" DSDD Soft Sector (512 B/S, 1 5 Sectors) 

8" DSDD Soft Sector (1024 B/S, 8 Sectors) 

5y4" SSSD Soft Sector w/Hub Ring 

5W Same as above, but bulk pack w/o envelope 

5V4" SSSD 10 Hard Sector vi//Hub Ring 

5Va" SSSD 16 Hard Sector w/Hub Ring 

574" SSDD Soft Sector w/Hub Ring 

5y4" Same as above, but bulk pack w/o envelope 

5y4" SSDD 10 Hard Sector w/Hub Ring 

5y4" SSDD 16 Hard Sector w/Hub Ring 

5y4" DSDD Soft Sector w/Hub Ring 

5y4" Same as above, but bulk pack w/o envelope 

5V4" DSDD 10 Hard Sector w/Hub Ring 

5y4" DSDD 16 Hard Sector w/Hub Ring 

5%" SSQD Soft Sector w/Hub Ring (96 TPI) 

ay*" DSQD Soft Sector w/Hub Ring (96 TPI) 

5Va" Tyvek Diskette Envelopes - Price per 1 00 Pack 

SSSD = Single Sided Single Density; SSDD = Single Sided Double Density; 

DSDD = Double Sided Double Density; SSQD = Single Sided Quad Density; 

DSQD = Double Sided Quad Density; TPI = Tracks per inch. 



Part* 


per disk {$) 


F111 


1.89 


F31A 


1.89 


F131 


2.39 


F14A 


2.99 


F144 


2.99 


F145 


2.99 


F147 


2.99 


M11A 


1.49 


M11AB 


1.29 


M41A 


1.49 


M51A 


1.49 


M13A 


1.79 


Ml SAB 


1.59 


M43A 


1.79 


M53A 


1.79 


M14A 


2.69 


M14AB 


2.49 


M44A 


2.69 


M54A 


2.69 


M15A 


2.59 


M16A 


3.69 


TE5 


12.00 




Quantity Discounts Avaiiable 

Wabash diskettes are packed 1 
disks to a carton and 1 cartons 
to a case. The economy bulk 
pack is packaged 1 00 disks to a 
case without envelopes or labels. 
Please order only in increments 
of 100 units for quantity 100 
pricing. With the exception of 
bulk pack, we are also willing to 
accommodate your smaller or- 
ders. Quantities less than 100 
units are available in increments 
of 10 units at a 20% surcharge 
above our 100 unit price. Quan- 
tity discounts are also available. 
Order 500 or more disks at the same time and deduct 1 %; 1 ,000 or 
more saves you 2%; 2,000 or more saves 3%; 5,000 or more saves 
4%; 1 0,000 or more saves 5%; 25,000 or more saves 6%; 50,000 
or more saves 7%, 100,000 or more saves 8%, 500,000 or more 
saves 9% and 1 ,000,000 or more disks earns you a 1 0% discount 
off our super low quantity 1 00 price. Almost all Wabash diskettes 
are immediately available from CE. Our efficient warehouse 
facilities are equipped to help us get you the quality product you 
need, when you need it. If you need further assistance to find the 
flexible disk that's right for you, call the Wabash compatibility 
hotline. Dial toll-free800-323-9868 and ask foryourcompatibility 
representative. In Illinois or outside the U.S. dial 312-593-6363 
between 9 AM to 4 PM Central time. 

Buy Wabash Diskettes with Confidence 

To get the fastest delivery from CE of your Wabash computer 
products, we recommend you phone your order directly to our 
Computer Products Division and charge it to your credit card Be 
sure to calculate your price using the CE prices in this ad. Written 
purchase orders are accepted from approved government agen- 
cies and most well rated firms at a 30% surcharge for net 30 
billing. For maximum savings, your order should be prepaid. All 
sales are subject to availability, acceptance and verification. All 
sales are final. All prices are in U.S. dollars. Prices, terms and 
specifications are subject to change without notice. Out of stock 
items will be be placed on backorder automatically unless CE is 
instructed differently. Minimum prepaid order is $50.00. Mini- 
mumpurc/7ase order $200.00. All shipments are F.O.B. Ann Arbor, 
Michigan U.S.A. No COD's please. Non-certified and foreign 
checks require bank clearance. 

For shipping charges add $8.00 per case or partial 
case of 100 8-inch flexible disks or $6.00 per case or 
partial case of 100 5y4-inch mini-diskettes for U.P.S. 
ground shipping and handling in the continental U.S.A. 

Mail orders to: Communications Electronics, Box 1 002, 
Ann Arbor, Michigan 48106 U.S.A. If you have a Visa 
or Master Card, you may cal I and place a credit card order. 
Order toll-free in the U.S. Dial 800-521 -441 4. In Canada, 
order toll-free by calling 800-265-4828. If you are outside 
the U.S. or in Michigan dial 31 3-994-4444. Telex anytime 
810-223-2422. Order your Wabash diskettes today. 

Copyright ®1983 Communications Electronics™ Ad #1112483 
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Order Tol I - Free! wabash 

800-521-4414 error-free 



In Michigan 313-994-4444 



diskettes 
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(continued) 



the microprocessor and loads data 
directly into memory. 

The VI 200 has a lot of benefits over 
the conventional hard disk drive. You 
don't have to worry about head crashes, 
drive alignments, lost data or backups. 
Because each disk in the cartridge can 
be easily removed and replaced, you 
can make your backups at the same 
time you save the original. One of the 
biggest advantages of the V1200, 
however, is the fact that it uses 
removable media. When a 5 -megabyte 
hard disk fills up, you either have to 
purge old files or go out and buy a new 
5-megabyte hard disk drive. With the 
Vista V1200, all you have to do is 
remove your 6-megabyte cartridge and 
insert a new one. Cartridges are fairly 
cheap and range in price from $60 to 
$70 for 6 megabytes of storage. The 



ability to have multiple cartridges also 
means that you can dedicate individual 
cartridges to particular applications if 
you want. 

The VI 200 comes with a disk that 
contains several utility programs on it. 
One of them is a program that modifies 
normal 3.3 DOS so that it can work 
with the Vista drive. The modification 
makes it possible for DOS to recognize 
five disk drives per slot. Thus, to access 
any of the five diskettes in the cartridge 
you simply add a Dl to D5 designation 
after the file name. The INIT command 
in DOS is disabled by the modification 
because a special formatting program is 
required to format VI 200 disks. 
Another program supplied on the disk 
is one that modifies FID so that it 
works with the new drive. You have no 
idea how great it is to run FID, select 



the FREE SPACE option, and find out 
that you have 4500 sectors free (on a 
fresh disk). Another program provided 
with the drive is Quickchaige, This is a 
fastDOS program that significantly 
speeds up the reading and writing of 
DOS files. 

In addition to working with stan- 
dard DOS, the V1200 also works with 
the Pascal and CP/M operating sys- 
tems. While the drive can be purchased 
from Vista for $1549, you can get it a 
lot cheaper ($1295) from A.P.P.L.E in 
Kent, WA. 



You may contact Mr. Gilder at REDLIG 
Systems, Inc., 2068 79th St., Brooklyn, 
NY 11214. 
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SOPHISTICATED TELE-CX)MMUNICATION IS HERE 

THE COMMUNICATOR 

for 4.0 Commodore Computers 

JIM STRASMA'S REVIEW: 
'*THE BEST TERMINAL PACKAGE I'VE SEEN YET*' 

By April 1 (maybe sooner) It Will Be Even Better 



SPEEDS UP TO 9600 BAUD 
XON — XOFF 
TRUE CTRL KEY {we do our own keyboard 



scan) 



THE HARDWARE — A printed circuit board; easily installed in the CBM. It uses 
no CBM connectors; gives a serial port with true RS232C standard. 

THE SOFTWARE - 

— Emulates the ADDS Regent 100, ADM 31 and/or the 

TeleVideo 950.1 Or choose the VT1 00 model for use with DEC and VAX 
computers. „.„.« 

— Runs coresident with BASIC programs; lets BASIC 

programs and program on host computer communicate to develop real- 
ly sophisticated communication and control capatiilities. 

— The program is on ROM at either address; no disk loading 

required. Uses only 51 2 bytes of RAM; will retocate itself around any other 
machine language program at top of memory. 

— Will upload and download and run BASIC programs. With BASIC 

program wiH upload and download standard data files. 1 00 page manual 
gives program listing for BASIC programs. 
Excellent text editor designed to worit with THE COMMUNICATOR 
THE COMMUNICATOR $200 
Text Editor $40 

1200 baud modems beginning at low, tow $385, and even less when purchased 
" with THE COMMUNICATOR 

AMPUFY, INC. 
2325 Macbride, Iowa City, Iowa 52240 319-337-8378 

1 trademarlts Adds Regent, Inc., Lear Liegler, Inc., TeJevideo Systems, Inc. 



FOR APPLE II PLUS, FRANKLIN, APPLE lie 

Font DownLoader* 

Expand the capacity of your printer hundreds of tinnes 



Load custom fonts into your Apple® Matrix Printer, Pro- fi /^ 

writer™ 851 OA, OKI® Microline92, 93,84 Step II, and / - 

Epson® FX and use them with virtually every v^ord / t^ 1 

processor to turn your printer into a custom type- /'_^^ m 

setter. After the fonts are loaded, they will stay /' 

in your printer until it's turned off. A j^' ^ VT M 

font editor is also provided to 

allow you to create your 

own graphics, text, foreign 

language letters, math and 

electronics symbols to load 

into your printer. 

On-Disk (Specify Printer) 

$39.00 

*Requires printer interface that 
adheres to Apple protocati 
(Tymac, Apple, Epson, etc.) 
(Will not work with Pkaso, Wizard 
and some ottiers). 



-r A 

R ir x^+y'' 

*^ 2V G ill- <$- I 
Vf W S O l=L ' 



I Designed by RAKWare 



r>$100 REWARD^ 

Submit the best or most unique font using the above 
software and we will make you $100 richer. Other 
prizes for the first 25 runners up. 



Dealer and Distributor 
Inquiries Invited 



49 
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1342 B Rt. 23, 



micro 

Butler, NJ 07405 
201-838-9027 
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80 COLUMN PRINTER SALE— $149.00 



COM-STAR T/F 




Tractor 
Friction 
Printer 




only 



HE 



(Parallel or Serial) 



Lowest price quality tractor friction printer in the U.S.A. • Fast 80 characters per second 
- 40, 46, 66, 80, 96, or 132 characters per line spacing • Prints labels, letters, graphs, and tables 
• List your progranns • Print out data from modem services 



*STX-80 COLUMN 
PRINTER-$149.00 

Prints full 80 columns. Super silent operation, 
60 CPS, prints Hi-resolution graphics and 
block graphics, expanded character set, ex- 
ceptionally clear characters, fantastic print 
quality, uses inexpensive thermal roll paper! 

DELUXE COMSTAR T/F 
PRINTER— $219.00 

The Comstar T/F is an excellent addition to 
any micro-computer system. (Interfaces are 
available for Apple, VIC-20, Commodore-64, 
Pet, Atari 400 and 800, and Hewlett Packard). 
At only $219 the Comstar gives you print quali- 
ty and features found only on printers costing 
twice as much. Compare these features. 

• BI-DIRECTIONAL PRINTING with a LOGIC 
SEEKING CARRIAGE CONTROL for higher 
through-put in actual text printing. 80 
characters per second. 

• PRINTING VERSATILITY; standard 96 ASCII 
character set plus block graphics and interna- 
tional scripts. An EPROM character generator 
includes up to 224 characters. 

• INTERFACE FLEXIBILITY: Centronics is 
standard. Options include EIA RS232C, 20mA 
Current Loop. 

- LONG LIFE PRINT HEAD: 100 million 
character life expectancy. 

. THREE SELECTABLE LINE SPACINGS: 6, 8 

or 12 lines per inch. 



. THREE SELECTABLE CHARACTER 
PITCHES: • 10, 12 or 16.5 characters per inch. 
132 columns maximum. Double-width font also 
is standard for each character pitch. 

• PROGRAMMABLE LINE FEED: program- 
mable length from 1/144 to 255/144 inches. 

• VERTICAL FORMAT CONTROL: program- 
mable form length up to 127 lines, useful for 
short or over-sized preprinted forms. 

• FRICTION AND TRACTOR FEED: will accept 
single sheet paper. 

• 224 TOTAL CHARACTERS 

• USES STANDARD SIZE PAPER 

if you want more try — 

Premium Quality 

COMSTAR T/F SUPER-10X 

PRiNTER-$299.00 

More Features Than RX-80 

For $299 you get all of the features of the 
Comstar T/F plus 10" carriage 120 cps, 9x9 
dot matrix with double strike capability for 18 
X 18 dot matrix. High resolution bit image (120 
X 144 dot matrix), underlining, backspacing, 
left and right margin settings, true lower 
descenders, with super and subscripts, and 
prints standard, Italic, Block Graphics, special 
characters, plus 2K of user definable char- 
acters. For the ultimate in price performance 
the Comstar T/F Super 10" leads the pack! 



Double 

Immediate Replacement 

Warranty 

We have doubled the normal 90 day warranty 
to 180 days. Therefore if your printer fails 
within "180 days" from the date of purchase 
you simply send your printer to us via United 
Parcel Service, prepaid. We will IMMEDIATELY 
send you a replacement printer at no charge 
via United Parcel Service, prepaid. This warran- 
ty, once again, proves that WE LOVE OUR 
CUSTOMERS! 

15 DAY FREE TRIAL 

OTHER OPTIONS 

Extra Ribbons * 5.95 

Roll Paper Holder 3295 

Roll Paper ^-95 

5000 Ubels 19 95 

1 100 Sheets Fan Fold Paper 13.95 

Add $17.50 shipping, handling and insurance. 
Illinois residents please add 6% tax. Add 
$40.00 for CANADA, PUERTO RICO, HAWAII, 
ALASKA orders. WE DO NOT EXPORT TO 
OTHER COUNTRIES. Enclose cashiers check, 
money order or personal check. Allow 14 days 
for delivery, 2 to 7 days for phone orders, 1 
day express mail available!! Canada orders 
must be in U.S. dollars. 



E^TER PRIZES (WE LOVE OUR CUSTOMERS! 

BOX 550, BARRINGTON, ILLINOIS 60010 
Phon* 312/382-5244 to order 



SUPER-10" «BCDEF'emcrKI_MIMaF»CIRSTrUVWXVZ 

ftBCDEFGHI JKLMNOPORBTUVWXYZ 123^SA-70«i»0 

GRAFSTAR (Apple interface card - "Like Grappler Plus") SALE $69.00. 
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CoCo Bits 



John Steiner 



There have been big developments 
in the Co Co world — you may 
have already seen the newest 
color computers. They sport new 
ROMs and the top-of-the-line version 
64K color computer has a deluxe 
keyboard. This option will be available 
as an add on for the older CoCos. 

If you live around the Dallas-Ft. 
Worth area, you can attend another 
Rainbowfest. This CoCo convention 
will take place the weekend of October 
14, 15, and 16. Next month, November 
4, 5, and 6, Los Angeles, CA will be the 
site of Color Expo sponsored by Color 
Computer Magazine. In February, 
another Rainbowfest will be held in 
Newport Beach, California. I am going 
to try to make it to the Dallas Rain- 
bowfest, if at all possible, and will be 
looking forward to meeting you at the 
show. If you see me, stop and say hi. 

In the June issue, I included a listing 
for a program that will find the start, 
end, and execute addresses of a 
machine-language program, but 
neglected to point out that the routine 
works only on a tape system. If you use 
the routine with a disk system con- 
nected, the results are invalid. 



A Look At The New Disk ROMs 

The 1 . 1 disk ROMs are out, and the 
worst has proven to be true. Of all the 
disk software I have, the only software 
with disk I/O working under the new 
ROMs is Tandy- written. The only ex- 
ception is disk Colorcom/E by Eigen 
Software Systems. I/O seems to be OK 
on that excellent terminal program, but 
I haven't had time to test it thoroughly. 
An acquaintance with Nelson's Color- 
term software says that the software 
works well with the new ROM. I am 
writing this column using Tele- 
writer- 64, which has been my standard 
word processor, but I am having to use 
the 1.0 disk card as Telewriter is not 
compatible with the new ROM. 



I am waiting for documentation on 
the new ROM capacity, but so far none 
is available. It is capable of loading a 
DOS from the disk, a definite improve- 
ment over the older ROM. Hopefully 
Tandy will document this ROM a little 
better and allow other software 
developers to have greater access to 
standard I/O routines. There will be a 
shake up in the support industry as 
companies scramble to convert their 
disk I/O to run on the new ROMs. 

I chatted with John Waclo of Elite 
Software, who has recently released 
Elite *Calc. They will be converting 
Calc to run on the new ROMs. Accord- 
ing to Mr. Waclo, a manufacturer has 
the option of either releasing two ver- 
sions of his software, one for I.O and 
one for 1.1, or writing a universal ver- 
sion that will run on either ROM. The 
method chosen depends on the program 
itself. Disk users may have to read the 
fine print in ads to see if the program 
they want is written for the version of 
ROM they have. I am sure most 
manufacturers would want to create a 
single version for both ROMs if at 
all possible. 



}&M Disk Controller Card 

The 1 . 1 ROM was delivered to me 
with the J&M driver controller card I 
obtained from J&M Systems, LTD of 
Albuequerque, NM. I mentioned in my 
August column that I had seen these 
cards at Rainbowfest and recently 
ordered one. The card is enclosed in an 
aluminum case and the workmanship 
is excellent. It is available with or 
without the 1.1 ROM. With the ROM, 
it is completely compatible with any 
Radio Shack software. I have interfaced 
the card with the TEC drive that is 
standard on the CoCo, with an MPI 
drive, and with Tandon drives, and all 
seem to work fine. 

Two of the nicest features about the 
J&M card are digital pre-compensation 
(there are no potentiometers to get out 
of adjustment], and gold-plated card 
contacts. One of the most troublesome 



areas of the Radio Shack card has been 
the lack of solid connections to the 
ROMport and drive-cable connector. 
The Radio Shack card needs constant 
cleaning to prevent oxidation from 
creating poor connections at the card 
ends. The J&M card should solve that 
problem. Surprisingly, the cards retail 
for only $149.95. When mated with a 
Tandon or Teac drive, the jaM system 
is a powerful package. J&.M told me 
they will be releasing a 1 . 1 super ROM 
that will have all the features of the 
new RS ROM, but also allow you to 
change step rates and other disk 
parameters. The ROMs will probably 
be available when you read this. 



Elite* Calc 

A high-quality spread-sheet pro- 
gram is finally available for the CoCo. 
The program is very much like the 
Super Calc that runs on larger business 
computers. I am truly impressed with 
Elite* Calc. Though it has a few minor 
bugs, it provides nearly all of the func- 
tions that other commercial spread 
sheets make available. In addition, it 
has a few features others don't have. I 
have had the opportunity to work with 
the program since I purchased it at 
Rainbowfest and didn't realize it had 
IF-THEN-ELSE capacity until I read a 
recent ad. The one weak point of Calc 
is the manual. It is written for those 
who are somewhat familiar with a 
spread-sheet program. Use a book or 
tutorial for Super Calc or another 
spread sheet if you have problems 
understanding the Elite* Calc manual. 
Transferring examples to Elite* Calc 
syntax should not be difficult. 

I am so impressed with the program 
that I have started a nationwide 
Elite* Calc User's Group. The major ob- 
jective of the group is to provide a clear- 
inghouse for spread sheets. People who 
have written sheets can exchange them 
for sheets others have written. This 
should create a large supply of useful 
routines, and allow people to modify 
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already existing routines, rather than 
reinvent the wheel by having to com- 
pletely write their own. 



Ptogrammers' Utilities 



Since this month's issue covers pro- 
gramming techniques, I wanted to 
mention several useful utilities 
available from Micrologic. E. R. Bailey 
of Micrologic has several programs 
available that process BASIC programs 
saved in ASCII format. The one I use 
most often is LLSTFM, a BASIC pro- 
gram formatter that provides a paged, 
titled, and dated program listing. The 
only nicety that could be added to the 
program is the inclusion of spaces be- 
tween keywords in packed programs. 
Other utilities include a line-number 
cross referencer and a variable cross 
referencer. These programs scan your 
BASIC program and identify variables 
and line numbers and cross reference 
them for easy tracking of program logic. 

A disk directory program does what 
RS DOS should: allows printed direc- 
tories, a paged screen directory, and 
available space data. I will have more 
comments on these programs in a 
future column. 

Another useful programmer's util- 
ity is the Platinum Worksaver by 
Platinum Software. I don't write any 
programs without first loading the 
worksaver. Single key keyword entry, 
redefinable keys, and a super screen 
editor make the program worth far 
more than the $35.00 it costs. A 
keyboard overlay is included that can 
be used to remind you of key defini- 
tions saved with each program. The 
worksaver has a small overhead of a 
couple of hundred bytes, but complete 
screen editing and the ability to in- 
tegrate Worksaver features into a pro- 
gram more than make up for the small 
overhead. 



JSMCRO 

You may contact Mr. Steiner at 508 
Fourth Ave. NW, Riverside, ND 58078. 




C COMPILERS-COMMON FEATURES: 

• UNIX VER 7 compatibility • standard float, double, and long support • run time library with full I/O 

and source • fast compilation and execution • full language. 

AZTEC C II CP/M (MP/M) $199 

• produces relocatable 8080 source code • assembler and linker supplied • optional M80 interface • 

SIO/ZSID debugger interface • library utility • APPLE requires Z80 and 16K card 

AZTEC C 1 [ APPLE DOS $199 

• relocating assembler supplied • APPLE SHELL • VED editor • library and other utilities 
• requires 16K card 

C86 IBM PC MSDOS CP/M-86 $249 

• directly produces 8088/8086 object code • linker supplied 

Manuals- $30 ORDER BY PHONE OR BY MAIL- Specify products and disk format 



MANX 

soft\A/are systems 
Box 55, Shrewsbui7, N.J. 07701 (201) 780-4004 



CP/M FORMATS: S" STD. HEATH, APPLE, OSBORNE, NORTHSTAR, . . . OUTSIDE USA-Add $10 In NJ. add 5% sales tax 



from 



COMPUTECH 



Check the 

outstanding 

documentation 

supplied with 
AIM65 



All prices 
Postpaid 

(Continental 
U.S. — 
otherwise 
$2 credit) 

Top quality power supply designed to Rockwell's specs for fully 
populated AIM 65 — includes overvoltage protection, transient 
suppression, metal case and power cable: 
PSSBC-A (5V 2A Reg; 24V .5A Avg, 2.5A Peak, Unreg) ...$64.95 
Same but an extra AMP at 5 volts to drive your extra boards: 
PSSBC-3 (5V 3A Reg; 24V .5A Avg, 2.5A Peak, unreg) ...$74.95 

The professionars choice in microcomputers: 

AIM65/1 K RAM $429.95 BASIC (2 ROMS) $59.95 

AIM65/4KRAM $464.95 ASSEMBLER (1 ROM) . .$32.95 

FORTH (2 ROMS) $59.95. 

SAVE EVEN MORE ON COMBINATIONS 
AIM65/1 K + PSSBC-A . $479.95 AIM65/4K + PSSBC-3 . $524.95 

We gladly quote on all AIM65/40 and RM65 items as well. 
I-Hpi ORDERS: (714) 369-1084 

I^E P.O. Box 20054 • Riverside, CA 92516 

California residents add 6% sales tax 
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Hcommodore 

NEW COMMODORE PRODUCTS 

CBM 64 Call 

CBM B500 $ 695 

CBM B700 2990 

CBM 1520 Plotter 259 

CBM 1 701 Color Monitor 279 

B Series Software Call 

SOFTWARE FOR CBM 64 C 

Word Processing (WordPro 3+) $ 69 

Word-Pac (tope) 60 

The Assistant Series 

Writers Assistant (easy and flexible) ... 99 

File Assistant (database witti merge). . . 99 

Spreadsheet Assistant 99 

Pers. Finance Assist.(great reports) ... 45 

Busicalc (Spreadsheet) 55 

Coco II (build your own games easily) ... 45 

Home Accounting Package 39 

General Ledger, A/R, A/P 

(with check writing) ea.l39 

CBM EasyFinance 50 

CBM EosySCTipt 80 

CBMEasyFile 80 

Data Manager 70 

Stock(investment analysis) 80 

Pet Emulator (emulates 4.0 basic) .... 30 
Sprite- Magic (use joystick 

to design sprites) 19 

Assembler Package (cassette or disk, 
compiled, includes editor, loader, 

disassembler) 39 

Spacebett 20 

Retroball 34 

INTERFACES & ACCESSORIES 

80 Column Expander $159 

VIC1600 Modem 95 

VIC 1650 (auto answer, auto dial). ... 150 

VIC 1 525 Graphic Printer 329 

VIC 1 530 Datasette Recorder 65 

VIC 1541 Disk Drive 329 

VIC Switch (connect 8 64's or Vies 

to printer, dd) 1 49 

IEEE Interface (64) ■ 85 

PET-IEEE cable 33 

IEEE-IEEE cable (2m) 43 

Parallel Interface (Epson, Okidato, 

IDS, NEC) 80 

RS-232 Printer Interface (Okidata, 

Diablo, etc.) 60 

Programmers Reference Guide 18 

Verbatim Diskettes (1 per box) 26 

Victree (Programmers Utility) 75 

VIC PRODUCTS & ACCESSORIES 

BK RAM Memory Expansion Cartridge ... $ 40 

16KRAM... 70 

24KRAM 105 



VIC IEEE Interface 75 

VIC 3 Slot Expander 27 

VIC 6 Slot Expander 70 

RS-232 Printer Interface 65 

Cassette Interface 27 

Home Finance Package (6 tapes) .... 47 

Gorf(64also) ..■ 30 

Omega Race 30 

Arcade Joystick - Heavy duty w/2 firing 

buttons! Great for the VIC or 64 — 25 

MONITORS - GREAT 
RESOLUTION (64 OR VIC) 

AmdekColorl $ 299 

Amdek II or III call 

Panasonic CT160 279 

Comrex 6500 - 1 3" Color 299 

Transtar 20 (High Resolution 

Green PhosphoO 1 29 

Video/ Audio Cable 15 

PRINTERS - LETTER QUALITY 

CBM 8300, 40 cps $1450 

Diablo 620, 25 cps 949 

ComRiter, 17 cps 819 

Transtar 130, 16 cps (auto load, 

wp features!) 769 

NEC 7700 series 2350 

NEC 3500 series 1600 

PRINTERS - DOT MATRIX 

CBM 8023, 150 cps/graphics 589 

Epson FX Printer, 160 cps 529 

Epson MX-80 w/Graftrax 349 

CBM Graphics for Epson 65 

Okidata 82A, 1 20 cps (serial 

and parallel) 429 

NEC 8023A (parallel) 439 

Okidata 92 559 

Star Gemini, 10 360 

Star Gemini, 15 499 

COMMODORE BUSINESS 
SERIES 
SuperPet (5 languages, 

2 processors) $1 409 

CBM 8032 Computer, 80 Column ... 1029 

CBM Memory Expansion, 64K 359 

CBM 8050, 1 mg. Dual Drive 1259 

CBM 8250, 2 mg. Dual Drive. ...... 1500 

CBM D9060, 5 mg. Hard Disk 2240 

CBM D9090, 7.5 mg. Hard Disk .... 2600 

CBM 2031, 170K Single Drive (New) 489 

DC Hayes Smart Modem 220 

BUSINESS SOFTWARE 

WordPro 4* or 5* $ 309 

Administrator 489 

VisiCalc (expanded) 199 

The Manager (database) 199 

BPI A/R, G/U Job Cost, Inventory, 
Payroll. ea.325 



MasterCard, Visa, 
Money Order, Bank Check 

COD (add $5) accepted. 

Add 3% surcharge for credit cards. 

In stock items shipped within 48 hours, 

F.O.B, Dallas, Texas 

All products shipped with manufacturer's 

warranty. 

Prices are subject to change without notice. 

TO ORDER 

CALL TOLL FREE 

800-527-4893 

800-442-1048 

(Within Texas) 

Business Hours 
Mon.- Fri. 8 to 6, Sat. 1 0-2 

Write for free catalog. 

GAME OF THE MONTH 

Adventu-Writer (make your 
own adventure game) 39 




5JB DISTRIBUTORS INC. 

1 0520 Piano Road, Suite 206 

Dallas, Texas 75238 

(214) 343-1328 
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Programming 
Techniques 



^ 



^ 



by Phil Daley 



What is a programming tech- 
nique? There are probably as 
many different definitions as 
there are programmers. The ComputeT 
Dictionary defines "programming" as 
"the process of creating a program" 
and Webster's Dictionary defines 
"technique" as a "method of handling 
materials of an art". This provides us 
with a general idea of methods for 
creating a program. 

There are several categories of such 
methods; e.g., improving program legi- 
bility or internal documentation, in- 
creasing the speed of the program, pro- 
viding the program user with a crash- 
proof friendly environment, providing 
future program changers with a struc- 
tured well-designed program to modify. 
No. 65 - October 1983 



and using features built into a par- 
ticular computer to their best advan- 
tage. This issue of MICRO presents a 
collection of techniques for BASIC, 
Pascal, and machine-language pro- 
grams to enhance your knowledge and 
enjoyment of your microcomputer. 

Pascal users can look for a primer on 
gaming techniques in Pascal including 
a simple, but modifiable, example of a 
Pascal game. Also, there is a pseudo- 
random-number generator, usable for 
card dealing or anywhere random num- 
bers are needed. 

For machine- language buffs we have 
some techniques for faster matrix 
operations, an m-1 string search, and an 
extremely sophisticated routine for 
animation with CoCo graphics. You 
MICRO 



can plot figures in between vertical 
scanlines for a smooth-looking graph- 
ics display. 

BASIC fans can really make their 
programs more friendly with the first of 
a series of user-friendly techniques. 
This month the subject is the directory 
menu for easy selection of programs 
from your disk collection. Add this pro- 
gram to all your bootable disks. We 
also have programs for screen data plot- 
ting for all our covered micros. This is a 
prelude to our character-graphics cover- 
age for November. 

We think you will enjoy our new 
expanded coverage with listings for all 
micros of as many programs as possible. 

/MCftO 
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The Directory Menu 







rne of the most important and yet 
most difficult tasks for a beginning 
computer user is to perform a directory 
search of a disk and to load and run a 
program. While a sophisticated user 
would have no trouble determining 
which programs are runnable (or 
B-runnable)^ the beginner is confronted 
with all sorts of file-types and mean- 
ingless filenames and has to remember 
the correct syntax (I even get mixed up 
going from computer to computer) and 
proper commands to get the computer 
to accomplish the task at hand. It 
would be much easier to have a single 
command to learn or, in the case of 
auto-booting computers, no commands 
to learn at all. 

Directory Menu is a user-friendly 
utility program that will display a 
directory of all programs on a disk and 
allow you to load and run any program 
at the touch of a key. It will be useful 
for beginners who want to simplify 
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their disk organization and implement 
auto-running menu selection on their 
own disks. It will also be useful for pro- 
grammers who want their programs to 
be the ultimate in user-friendly/ simple 
menu selection. 

Many people who buy computers do 
not want to learn about programming 
or memorize commands. Others are 
eager to begin writing their own pro- 
grams. In either case, most people soon 
acquire a growing library of programs, 
storing many on a single disk. On auto- 
booting systems, such as the Atari and 
Apple, most people write DOS onto a 
disk before copying or saving other pro- 
grams. This allows you to boot using 
any disk and to run a "HELLO" or 
menu program automatically. These 
procedures may seem quite simple to 
the experienced user, but the beginner 
can easily become confused and frus- 
trated. Whether you are a beginner or 
not, you can save yourself time and 



effort by letting your computer do 
the work. 

Wouldn't it be easier to just turn on 
the computer and have the machine 
tell you the names of each file on a 
disk, assign it a number, then let you 
simply type your selection by number? 
Wouldn't it be easier to let the com- 
puter figure out if your selection is a 
BASIC or machine-language program, 
then run it for you? If you answered yes 
to these questions, read on. 

The program creates a MENU and 
displays a page of program names one 
page at a time. To load and run a pro- 
gram displayed, merely type the 
number of the program appearing to the 
left of the program name and press 
return. Versions are included for the 
Apple, Atari, Color Computer, and 
Commodore 64. The listings and des- 
criptions of the individual programs ap- 
pear in the appropriate system sections 
of the magazine. JMCRO 
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The author develops general-purpose plotting routines for the Commodore 64, 
VIC, PET, Atari 400/800/1200, TRS-80C, and Apple. Simple examples 
are used to demonstrate origins, scaling, rounding, and polar coordinates. 



Plotting 

Data 

With 

Character 

Graphics 



by Loren Wright 
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It is easy to plot mathematical func- 
tions or create attractive designs on 
your computer's character-graphics 
screen. This article will show you how, 
starting with simple concepts and sim- 
ple functions and working up to a plot 
using polar coordinates. The result of 
these exercises will be a set of general- 
purpose routines that you can use to 
plot nearly any function on your com- 
puter screen. On the way, you'll learn 
about origins, scaling, rounding, sym- 
metry, and coordinate systems. 

The article is written for Com- 
modore, Atari, and TRS-80C screens. 
Nearly all differences are included in 
the start-up modules listed on page 
29. The Apple's screen memory is not 
continuous, so these routines will not 
apply directly to the Apple. However, I 
have provided a separate set of 
modifications that will allow you to try 
the examples presented using the 
Apple's low-resolution graphics screen. 
See the listing on page 33. 

The first thing we need is a system 
to describe the position of a point on 
the screen conveniently. The easiest 
system to learn is called a rectangular 
coordinate system. With this system 
two imaginary perpendicular lines in- 
tersect somewhere on the screen, 
usually at the lower left comer. This 
intersection point is called the origin, 
and the two lines are the axes. Each 
axis has a scale used for measurement. 
Depending on the data you are plotting, 
the size of the scale will vary. The 
horizontal and vertical scales may be 
different, but in our first examples they 
will be the same. By convention, the 
horizontal axis is called the x-axis and 
the vertical axis is called the y-axis. 

The position of a point is described 
by measuring the distance from the 
origin to a perpendicular line leading 
from the x-axis to the point, and by 
similarly measuring on the y-axis the 
distance from the origin to a perpen- 
dicular line leading to the point. These 
two measurements, one along the 
X-axis and the other along the y-axis, 
uniquely describe that position. In 
figure 1, point A has x-y coordinates of 
4,4; point B is at 5,3. Negative coor- 
dinates are possible, but we will save 
them until later. 
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Start-up Modules 



Commodore 64 

10 OG^ 1024: CM =55296: 
XX = 24: MX = 39: MY = 24 

20 POKE 53280,2: POKE 53281,1: 
GC = 2 

40 PRINT "[1:3]" 



VIC-20 

10OG = 4*(PEEK(36866) 

AND 128) + 64*(PEEK(36869) 

AND 112) 
11 CM = 37888 + 4*(PEEK 

(36866)AND 128): MX = 21: 

MY 3:22: XX = 24 
20 POKE36879,PEEK(36879)AND 

80R(16*2 + 1):CC = 2 

40 PRINT "[i::^]" 



PET/CBM 

1 OG = 32768: XX = 24: MX = 39: 
MY = 24 

40 PRINT "[;:::•]" 

Note: Don't use line 3050! 



All Commodore Machines: 

900 GET T$: IFT$ = " "THEN 900 
999 STOP 



TRS - 80C 

(Requires Extended Color BASIC) 

10OG = 1024:XX = 88 
20 MX = 31: MY = 15 
30 CLS 



900 IF INKEY$=" "THEN 900 
999 STOP 



Atari 400/800/1200 

10OG = 256*PEEK(89) + 

PEEK(88) 
20XX = 56:MX = 39:MY = 23 
30 SETCOLOR 2,13,10: 

SETCOLOR1,0,0: 

SETCOLOR4,3,6 
40POKE752,1:PRINT"^" 



900 IF PEEK(764) = 255 

THEN 900 
999 POKE 752,0:STOP 



Your Computer Screen 

Most home computers in their stan- 
dard character modes have a memory- 
mapped screen. That is, each character 
position on the screen has a different 
memory location associated with it. 
Each memory location contains a 
number^ which is a code representing 
the character in the corresponding posi- 
tion on the screen. The screen memory 
locations begin with the upper left 
corner of the screen and continue in 
sequence from left to right until the 
bottom right corner is reached. To put a 
character on the screen we just POKE 
the appropriate numerical code into the 
proper screen memory location. This 
isn't very handy, since the screen 
memory locations are big numbers. 
What we need is a system to convert 
from the handy x-y coordinate system 
described above to the computer's own 
memory-mapped system. 

First you need to know a few things 
about your particular computer. The 
first lines of our program will con- 
tain information describing your com- 
puter's memory-mapped screen. Type 
in the start-up module lines listed for 
your computer. The Z2 in the Com- 
modore listings and the iS in the 
Atari listing indicate the clearscreen 
character obtained by pressing SHIFT 
and CLR or CLEAR keys. 

OG is the origin, or the address 
representing the upper left comer. MX 
is the number of columns less one, and 
MY is the number of rows less one. (For 
these demonstrations, the first column 



and first row are numbered 0.) XX con- 
tains the screen code for a capital X. 
The lines also contain statements that 
set screen, border, and character colors. 
The method varies with the computer. 

Graphing a Function 

Now that you have customized the 
program to your computer, add the 
following lines: 

1 00 FOR X ^ TO MY: REM VIC use MX. 
110 Y = X 

120 XI =X: Y1 = Y: GOSUB 3000 
130 NEXT X 

3000 REM XI =0 TO MX Y1=0TOMY 
3030 P0 = (MX-}-1)*Y1 -fXI 
3040 POKE OG + PO,XX 
3050 POKE CM -\- PO,0: REM 

VIC & 064 ONLY 
3060 RETURN 

With any luck, you now have a line 
of X's leading down from the upper left 
comer. When we were discussing the 
coordinate system before, the origin 
was at the lower left, but this example 
makes the origin at the upper left. 
That's because the computer's screen 
memory starts with the upper left. We 
can correct this by adding line 3020 to 
the program: 

3020 Y1 =MY-Y1 

Try RUNning the program again. 

This time the diagonal line starts at the 

(Continued on page 31) 



Figure V. Rectangular coordinates 



A (4,4) 

• B (5,3) 
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MicroSpec 

SOFTWARE MEANS 

BUSINESS FOR THE 

COMMODORE 64 



When it's time to get serious, it's time to boot up 
MicroSpec business software. Our complete line 
of business software is made to give you some real 
applications for your Commodore 64. From data 
base management to full accounting software, we 
have the package for you. 

It's attention to detail that makes our packages 
so beautiful and makes them stand out from the 
rest. We realize that most people are first 
time users, so we designed all our packages to 
be completely menu driven and user prompt- 
ed for each input. We also know that most 
people use only one disk drive, so we 
designed all our packages to virtually 
eliminate disk swapping. Other features like 
non destructive input routines really make 
our software easy to use. But all this doesn't 
restrict you. Pure random access file struc- 
ture maximizes your disk capacity and 
allows you to bring up any record for viewing 
in less than a second. 

In our efforts to put together the best pack- 
ages available, we worked on more than the 
software. We took the same approach with the 
documentation as the software. We made it com- 
plete and easily understood for the first time user. 
We even provide sample reports in many cases. 
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The Demonstration Package, which shows how 
each program runs, is available for $19.95. So, if 
you're serious about your 64, call or write for a 
complete brochure or go right down to your 
nearest computer retailer for a demonstration. 



WHEN YOU AND YOUR 64 ARE READY TO GET DOWN TO BUSINESS 

GIVE us A CALL 




m^ 



P.O. BOX 863085 • PLANO, TX 75086 
(214)867-1333 
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bottom left. You have just graphed the 
mathematical function "Y = X" (see 
line 110 above) on your computer 
screen. Now try a new function. Make 
the changes in lines 100 and 110 so 
they appear as below: 

100 FOR X = TO 10: REM CO use 7. 
110 Y = 2*X 

120 XI =X: Y1 = Y: GOSUB 3000 
130 NEXTX 

A new function "Y = 2*X" will be 
plotted when you RUN the program. 



Keeping It on the Screen 

Note that line 100 had to be changed 
to prevent our graph from running off 
the screen. It is a good idea to be sure 
your points won't go off the screen 
since plotting out-of-range points could 
possibly crash your program. So far, I 
have been careful to choose values that 
will keep all points on the screen. You 
can't always be sure. By adding the 
following line to your plotting 
subroutine, you will avoid a disaster: 

3010 IF (Yl < 0)OR(Y1 > MY)OR 
(X1 < 0)OR(X1 > MX) THEN 
3060 

This will cause the routine to return 
without plotting a point when either X 
or Y is out of range. 

Rounding 

Now let's try a new function. 
Substitute the following for lines 
100-120: 
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100 FORX = 0TO MX 
110 Y^2*X/3 
120 PRINT X;Y 

When you RUN the program this 
time, a list of values instead of a 
graph will appear on the screen. Notice 
that most of the numbers calculated for 
Y are not whole numbers. Instead, 
many are decimals that end with a 
bunch of 3's or 6's. If you try to plot 
this on the screen by substituting 120 
XI =X: Yl = Y: GOSUB 1000, you may 
or may not get a plot on the screen. The 
POKE command is designed to handle 
integers, not floating-point numbers, 
so your computer may give you an error 
message. Even if you were to use 
INT(Y], you would still get the wrong 
result. When X = 2, Y is two-thirds. 
The INT( ) function turns two-thirds 
into 0, but we all know it should have 
been rounded up to 1 . 

Add the following line to your 
program: 

70 DEF FNR(X)=INT(X + .5): REM Not 
for Atari! 

This defines a general-pxirpose round- 
ing function, which we can use with 
any floating-point variable anywhere in 
the program. (It is not restricted to the 
variable X, even though it was used in 
the definition. ) Revise the main portion 
of your program so it appears as below: 

100 FORX = 0TOMX 

110 Y = 2*X/3 

120 Y=FNR(Y): REM Atari use: 120 

Y = INT(Y-F.5). 
130X1=X: Yl ^Y: GOSUB 3000 
140 NEXTX 

MICRO 



RUN the program now and you will 
see that, although the line of X's is 
pretty ragged, at least the values for Y 
have been rounded correctly. 

Scaling 

The data you want to plot don't 
always fit neatly in the system we have 
set up. What happens when the 
numbers you calculate are larger than 
the maxima or when they are a lot 
smaller? The answer is to introduce a 
scaling factor. Consider the follow- 
ing example: 

100 FORX = 0TO20 

110 Y = X*X 

120 X1 =X: Yl =Y: GOSUB 3000 

130 NEXTX 

Be sure line 3010 is still in your plot 
subroutine and RUN the program. The 
first four or five points are plotted, but 
the remaining values are not. When 
X = 5, Y = 25, putting the point just off 
the top of the screen. When X = 20, 
Y = 400 and it would take a screen more 
than eight times as high to plot the 
point! To keep everything on the screen 
we need a scaling factor, which we 
will define in the set-up portion of 
the program: 

90 SY = .05: REM CO use 90 SY = .037 



Combine this with the rounding func- 
tion to get a new line: 

115 Y = FNR(Y*SY): REM Atari use: 115 
Y = INT(Y*SY + .5) 



Each character unit in the vertical 
direction is now 20, but all the points 
will appear on the screen when you run 
the program. To determine the ap- 
propriate scaling factor, you must 
know the maximum value for your 
function. Divide the value of MY by 
the function maximum. This number 
is your scaling factor. To make things 
neat, round it down when it is less than 
one and up when it is greater than one. 
Twenty- two divided by 400 is .055, so I 
chose .05 for SY. (For CC 15/400 = 
.0375, so use SY=. 037.1 

Now let's try an example that 
works the other way around. This time 
the values for Y will all fall between 
and 1, so we'll need a large scaling fac- 
tor. In addition we'll need a scaling fac- 
tor for X. Delete lines 100-199 and type 
in the following program segment: 

(Continued on next page) 
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90 PI = 3.14159265: SY = MY: 

SX = PI/MX 
100 FORX = 0TOMX 
110X1 =SX*X 
120 Y = SIN(X1)*SIN(X1) 
130 Y = FNR(Y*SY):REM Atari use: 130 

Y = INT(Y*SY + .5) 
140 X1 =X: Y1 = Y: GOSUB 3000 
150 NEXTX 

RUN the program first and you will 
see a rough bell curve plotted on the 
screen. Now for the details. Let's start 
with line 130. First Y (which I told you 
stays between and 1| is multiplied by 
SY, which was set to MY in line 90. 
Then the rounding function is used. For 
the purposes of the calculation, X starts 
at and goes up to tt radians (the com- 
puter's SIN and other trigonometric 
functions use angles measured in ra- 
dians rather than degrees). For the 
screen plot, we need integer values be- 
tween and MX. The solution is to 
keep X as an integer between and MX 
(line 100) and use another variable XI 
that increases in increments of 1/MX 
times TT radians. XI is used for the 
calculation in line 120, and subroutine 
3000 gets XI, as usual. By the way, 
those of you with Commodore com- 
puters can eliminate the first statement 
in line 90 and replace the variable PI 
with the TT character. 



Origins 

The previous example used the 
sine-squared function so we could keep 
the graph on the screen. Next we will 
graph a function that goes both positive 
and negative — a simple sine function. 
To do this, we need to move the origin. 
(Remember we placed it at the lower 
left corner of the screen at the very 
beginning.) The new origin is at the left 
edge in the middle (see figure 2). Delete 
lines 100-150 and replace them with 
the following program: 

25CY = INT{MY/2) 

90 PI = 3.14159265:SY=INT(MY/2): 

SX = 2*PI/MX 
100 FOR XI =0TO MX 
110X = SX*X1 
120 Y = SIN(X) 
130 Y = FNR(Y*SY): REM Atari use 

Y=INT(Y*SY-^.5) 
140 Y1 =Y: GOSUB 2500 
150 NEXTX1 

In addition to the main program, we 
add a new plot-routine entry that will 
32 



automatically convert the origin from 
an assumed left-center origin to the 
usual lower-left: 

2500 REM LEFT-CENTER ORIGIN 

CONVERSION 
2510 Y1 =Y1 -hCY 

A lot has happened all at once. The 
sine function yields results between 1 
and - 1 or in a range of 2. To fill the 
screen vertically, we need a range of 
MY, so muhiplying by INT(MY/2) 
converts the range to MY. As usual, the 
X value ranges in integer units from 
to MX, so we use XI as the FOR... 
NEXT loop index, and this gets passed 
directly to the plot routine. To 
calculate the Y values we use a separate 
variable X. By applying the horizontal 
scaling factor SX, we use X in the range 
to 2 TT in increments of 1/MXth of 

In the main program, we converted 
the range of the function to the full 
height of the screen. However, the low 
end of the range is -INT(MY/2). 



Adding CY (which conveniently is 
INT(MY/2)) makes the whole range 
positive, from to MY. Instead of 
RETURNing to the main program, this 
routine automatically flows through to 
the plot routine we have been using all 
along. This way, you end up with a 
dual-purpose routine. If you are plotting 
with a lower-left origin, use GOSUB 
3000; if you are plotting with a left- 
center origin, use GOSUB 2500. 

Polar Coordinates 

Most functions can be handled very 
well with the x-y coordinate system we 
have used so far. However, many func- 
tions, such as the circle we are about to 
plot, are best dealt with using a polar 
coordinate system. In this system, a 
point's position is described by its 
distance (in a straight line) from the 
origin and the angle this line makes 
with the horizontal in a counter- 
clockwise direction. See figure 3 for an 
illustration of this. Point A is described 
by the length of the line LI and the 



Figure 3; Polar coordinates 
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angle Tl, while point B is represented 
by distance L2 and angle T2. 

The computer handles angles in 
radians ; while humans are more com- 
fortable using degrees. Therefore we 
add a new function to convert angles in 
degrees to radians: 

70 DEFFNR(X)=INT(X+.5): 
DEF FND(X) = X*PI/180 
(Atari use: 70 DEG) 

To plot a circle, we need the origin 
in the center of the screen, so we need a 
center value for X and a new plot-rou- 
tine entry to handle the center origin: 

25 CY= INT(MY/2): CX= lNT(MX/2) 
2000 REM CENTER ORIGIN 

CONVERSION 
2010X1=X1 +CX 

This flows to the left-center entry and 
then to the main plot routine. Now you 
have a routine with three different en- 
tries, depending on the origin you are 
using. If you were using the routine 
with the x-y coordinate system and a 
center origin, then you would call the 
routine with GOSUB 2000. However, 
we are going to be using the polar coor- 
dinate system, so there will be a polar- 
to-rectangular section preceding it: 



Apple LO-RES Listing 



(Substitute the following for the 
start-up module and subroutine 
3000. Everything else should work 
as described in the text.) 



10 HOME: POKE -16302,0: POKE 

-16304,0: CALL -1992 
20 COLOR = 15: MX = 39: MY = 47 



900 IF PEEK(- 16384) < 128 

THEN 900 
910 TEXT: HOME 
999 STOP 



3000 REM XI = TO MX Y1 = 

TO MY 
3010 IF (Y < 0) OR (Yl > MY) OR 

(X< 0) OR (XI > MX) THEN 

3060 
3020Y1=MY-Y1 
3030 PLOT X1,Y1 
3060 RETURN 
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1000 REM POLAR (L,T) TO 

RECTANGULAR (XI ,Y1) 

CONVERSION 
1010 T1 = FND(T): REM Atari use: T1 = T 
1020X1=L*COS(T1) 
1030 Y1=L*SIN(T1) 

Since we are now performing so 
many adjustments on the data, it is 
best to save the rounding until just 
before the actual plotting takes place: 

3025 XI = FNR(X1): Yl = FNR(YI) 
(Atari: 3025 XI =INT(X1 +.5): 
Yl =INT(Y1-h.5) 

Now for the main program. With 
the polar coordinate system, L will be 
the same for all points, and the angle 
will change in even increments over 
the full 360 degrees: 

100 FOR T = TO 357 STEP 3 

110 L = CY: REM VIC and Apple lo-res 

use: 110 L = CX 
120 GOSUB 1000 
130 NEXT T 

Symmetry 

Chances are that you won't get a 
circle, even if you thought you were 
plotting one. Your circle is probably 
more oval- shaped. This is because the 
space a character occupies is not 
perfectly square. Keep the circle plot on 
the screen and measure it with a ruler 
vertically and horizontally. Divide the 
vertical distance by the horizontal 
distance to get your symmetry factor. 
My factor came out to 1.33. By adding 
one line to your program, you can make 
the circle, and any other radial pat- 
terns, appear more symmetrical: 

2005X1= XI* 1.33 

Another easy pattern is a spiral: 

100 FOR T = TO 717 STEP 3 
110L = CY*T/720 
120 GOSUB 1000 
130 NEXT T 

By consulting geometry and 
trigonometry books, you will find 
other radial patterns, such as clover 
leaves, that can be easily programmed 
with the polar coordinate system. 

Commodoie Notes 

In the start-up module we defined a 
variable CC, which we haven't used. 
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We can use the variable in line 3050: 

3050 POKE CM -\- PO.CC: REM 
COMMODORE ONLY 

RUNning any of the program ex- 
amples will now cause the plot to 
appear in red instead of black. You may 
vary the color as each point is plotted 
by changing the value of CC, or you can 
set it once at the beginning. 

As part of next month's character- 
graphics feature, I will present routines 
that use the Commodore machines' 
powerful graphics characters to achieve 
higher resolution. 

Plotting Your Own Functions 

You should be able to plot nearly 
any function using the general-purpose 
routines presented. Follow this simple 
procedure: 

1. Type in the start-up lines and lines 
900-999 as shown for your computer. 

2. Type in the plotting subroutines. 
Store this on tape or disk. It will be 
your template for any plotting you will 
do. Lines 100-899 will vary from plot to 
plot; the others will stay the same. 

3. Determine the origin. If X and Y 
both stay positive^ use the lower-left 
origin (line 3000). If Y goes both 
negative and positive, use the left- 
center origin (line 2500). If both X and 
Y go both positive and negative, then 
the center origin should be used (line 
2000). Radial patterns, such as cir- 
cles, ellipses, spirals, and florettes, 
should use polar coordinates as well 
(line 1000). 

4. Determine the horizontal range (X 
direction) of your plot. Usually you 
will want to cover the whole range in 
integer increments. Use this range to 
pass (in variable XI) to the plot 
subroutine and calculate another X 
value, using a horizontal scaling factor, 
for your Y value calculation. The 
horizontal scaling factor is determined 
by dividing the actual horizontal maxi- 
mum by MX (or CX for center plots). 
(See the sine wave example.) 

5. Determine the vertical range (Y 
direction) of your plot. Divide MY (or 
INT(MY/2) for left-center or center 
origins) by the actual Y range of the 
function to get the vertical scal- 
ing factor. 

6. The rest is simple. Use a 
FOR... NEXT loop with XI or X as the 
index. Remember to pass XI and Yl to 
the subroutine. 

iflycfK> 
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STKICTIKED 
GAME 

DESIGN 



Game writing in any ianguage can be a 
rewarding experience. When writing 
games imagination and fantasy are 
transformed into graphic or text dispiay, 
which requires a foundation in 
program design. 



by Michael Allen 



This article introduces the novice programmer to 
game programs. The Pascal language is used to pro- 
vide clear examples. Advanced programmers will 
want to utilize these same concepts as assembly-language 
functions and procedures for greater speed in fast- 
paced games. 

I have presented the examples as a compilable program 
so that the beginning game programmer is presented with 
a core around which to write his play screens. Any of the 
routines presented can be used as is or modified further for 
specific applications. Many of the routines can be used by 
more than one calling routine by adding parameters to the 
function headings. 

When checking the list of variables, you will find that 
the majority used during the game are declared as global. 
The reason for this is to avoid using parameters, thus 
making it easy to keep track of the procedure calls dur- 
ing development. 
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In the fully compilable program that follows, the pro- 
grammer needs only to fill in the screens. Using the pro- 
cedures provided; a very playable game can be written 
(such as the sample screen). With a little effort and some 
modifications (try some graphics) this program can 
become the basic framework for any kind of game you 
might wish to write in Pascal. 

{$S+} {SWAPPING OPTION FOR COMPILING LARGE PROGRAMS} 
PROGRAM GAME; 

USES APPLESTUFF; {NEEDED IN APPLE PASCAL 

RANDOM, RANDOMIZE AND KEYPRESS ARE HIGHLY 
USEFUL ROUTINES CONTAINED IN THIS UNIT} 



ULN,l...r.y--.-: 






CONST 

SIZE = 5; 

TYPE 

INDEX = INTEGER; 
VAR 

HI, POINTS : INTEGER [10]; 

LEVEL, MEN : INDEX; 

LETTER : CHAR; 

WORDARR : PACKED ARRAY [1. .SIZE] OF CHAR; 

COUNT,! : INDEX; {COUNT VARS-USE IN LOOPS AS NECCESSARY} 

HISCORE : TEXT; {FILE FOR STORAGE OF HIGH SCORE VALUE} 



PROCEDURE SCREEN; FORWARD; {TO AVOID UNDECLARED NAME ERRORS} 

The function 'COMPARE' compares a keyboard input 
to an array and returns a boolean value. This function 
would be useful in Hangman- type word games. The input 
variable 'LETTER' is compared to the array 'WORDARR' 
to check for a match. 

FUNCTION COMPARE : BOOLEAN; {COMPARE AN INPUT TO A ARRAY} 

VAR I : INTEGER; 

BEGIN 

FOR I := 1 TO SIZE DO 
IF LETTER = WORDARR [I] 
THEN 
BEGIN 

WORDARR[I] := '0'; 
COMPARE := TRUE; 
EXIT (COMPARE); 
END 
ELSE COMPARE :- FALSE; 
END; 

The PLAYER UPDATE procedure is one of those 
routines that every game program must have. This pro- 
cedure keeps the player informed as to the number of men 
left in play and the current score. 

PROCEDURE PLAYERUPDATE; {UPDATE PLAYER INFO} 
BEGIN 

WRITELN( 'POINTS = ', POINTS); 

IF MEN = 1 THEN WRITELN(MEN, ' MAN LEFT') 
ELSE WRITELN(MEN, ' MEN LEFT'); 
END; 

Another necessary procedure is the 'END GAME' 
routine that tidies up the loose ends, such as storing the 
high score and displaying the player's level of achievement. 

PROCEDURE ENDGAME; 
BEGIN 

PAGE (OUTPUT); 

WRITELNCHIGH SCORE = ',HI); 

WRITELN;WRITELN; 

PLAYERUPDATE; 

GOTOXY ( 12 , 12 ); 



IF POINTS > 1000000 THEN WRITELN (' SUPER MAN') 

ELSE IF POINTS > 500000 THEN WRITELN ( 'ABOVE AVERAGE') 
ELSE IF POINTS > 250000 THEN WRITELN (' COMMON MAN') 
ELSE IF POINTS > 100000 THEN WRITELN (' ALMOST MAN') 
ELSE WRITELNCYOU COULD LOUSE UP A BRICK WALL'); 
{RESET (HISCORE); 

IF POINTS > HI THEN WRITELN(HISCORE,POINTS) ;} 
{CAN BE USED AFTER CREATING DISK FILE} 
EXIT (PROGRAM); 
END; 



FUNCTION RAND : INTEGER; {ONE IN TEN RANDOM NUMBER} 
CONST 

LOW = 1; 

HIGH = 100; 
VAR 

MX, CD : INTEGER; 
BEGIN 

C := HIGH - LOW + 1; 

MX := (MAXINT - HIGH + LOW) DIV C + 1; 
■..MX := MX * (HIGH - LOW) + (MX - 1); 

REPEAT 

D := RANDOM ; 

UNTIL D < MX; 

RAND := LOW + D MOD C; 
END; 

The procedure DELAY is a variable delay. The length of 
delay is contingent upon the level of play. 'DELAY' is a 
simple loop repeated 'N' times, 'N' being dependent on 
the value of 'LEVEL'. 

PROCEDURE DELAY; {DELAY BASED ON I^VEL OF PLAY} 

VAR I : INTEGER; 

BEGIN 

I := 2000 - 200 * LEVEL; 

IF I <600 THEN I := 600; 

REPEAT 

I := I - 1; 

UNTIL I = 0; 
END; 

The HALLMON (hall monitor) procedure is a pro- 
cedure for computing the chance (50/50 in this applica- 
tion) of escaping or avoiding an obstacle. The obstacle can 
be mobile or stationary. This procedure can also be used in 
combination with 'PERCENTILE', 'CHANCE', and 
'FUMBLE' for greater flexibility of action with multiple 
branching. 

PROCEDURE HALLMON; {WANDERING OBSTACLE} 

VAR I : INTEGER; 

BEGIN 

I := RAND; 
GOTOXY ( 12, U); 
WRITELN (' ':80); 
GOTOXY (12, 14); 
IF ODD(I) 
THEN 
BEGIN 

POINTS := POINTS + 1000 * LEVEL; 
WRITELNCYOU GOT IT'); 
END 
ELSE 
BEGIN 

MEN := MEN - 1; 
WRITELN('IT GOT YOU!'); 
EXIT (SCREEN); 
END; 
END; 



The function CHANCE is simply a 1 - 100 random- 
number generator. 

FUNCTION CHANCE : INTEGER; {ONE IN A HUNDRED RANDOM NUMBER} 
CONST 

LOW =1; 

HIGH - 100; 
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VAR 

MX, CD : INTEGER; 
BEGIN 

C := HIGH - LOW + 1; 

MX := (MAXINT - HIGH + LOW) DIV C + 1; 

MX := MX * (HIGH - LOW) + (MX - l); 

REPEAT 

D := RANDOM ; 

UNTIL D < MXj 

CHANCE := LOW + D MOD C; 
END; 



PROCEDURE LINEl; {RANDOM TEXT GENERATION} 
BEGIN 

RANDOMIZE; 

CASE RAND OF 

1.6 : WRITELN( 'QUIET AS A MOUSE'); 

2.7 : WRITELN('A CAT WOULD BE JEALOUS'); 

3.8 : WRITELN('EVER CONSIDER A DISHONEST PROFFESSION ' ) ; 

4.9 : WRITELN('THE NEXT ONE WON'T BE SO EASY'); 
5,10: WRITELNC YOU'VE DONE THIS BEFORE RIGHT !!'); 

END; 
END; 



PROCEDURE LINE2; 
BEGIN 

RANDOMIZE; 
CASE RAND OF 

1,6 : WRITELN('THAT WAS A CLOSE ONE'); 
WRITELN( 'BE CAREFUL ! ! ' ) ; 
WRITELN('YOU'RE A REAL KLUTZ TODAY'); 
WRITELN( 'EVER CONSIDER A "QUIET" HOBBY ??• 
WRITELN('YOU ALMOST BLEW IT '); 



2,7 
3.8 

5,10: 
END; 

END; 



The procedure FUMBLE decides whether or not the 
player has fumbled (1 - 64); if he has he loses one man. If 
the player has not fumbled 'LINE2' is called. 



PROCEDURE FUMBLE; 
VAR CH : INTEGER; 
BEGIN 

CH := CHANCE; 
IF CH >= 65 THEN LINE2 
ELSE BEGIN 

WRITELN('YOU WOKE THE WHOLE NEIGHBORHOOD'); 
MEN :- MEN - 1; 
EXIT (SCREEN); 
END; 
END; 

The PERCENTILE procedure uses the number 
generated by 'CHANCE' to make decisions — in this case 
to decide between 'LINEl' (76 - 100); 'LINE2' (26 - 75), or 
'FUMBLE' (1 - 25). 'LINEl' and 'LINE2' simply print text 
messages selected at random. 

PROCEDURE PERCENTILE; 
VAR CH : INTEGER; 
BEGIN 

CH := CHANCE; 

IF CH > 75 THEN LINEl 

ELSE IF CH > 25 THEN LINE2 
ELSE IF CH >= 1 THEN FUMBLE; 
END; 

The INDAT procedure is the same as performing a 
'READ' statement except now allowable inputs are 
selected by the programmer. In the example, only 'A' 
through 'Z' will be accepted. 



PROCEDURE INDAT; 
BEGIN 

GET (KEYBOARD); 



WHILE NOT (KEYBOARD AIN ['A' 

GET (KEYBOARD); 
LETTER := KEYBOARD A ; 
END; 



'Z']) DO 



PROCEDURE SCREEN; {SAMPLE SCREEN} 
VAR 

LIMIT : INDEX; 
CORRECT : INDEX; 
BEGIN 

WORDARR :- 'GAMES'; 
CORRECT := 0; (O CORRECT GUESSES} 
LIMIT := 20; {20 GUESSES} 

WRITELN('YOU HAVE TWENTY GUESSES TO FIND THE LETTERS'); 
WRITELN('IN A FIVE LETTER WORD'); 
WRITELN; 

WRITELN('WHEN YOU FIND THE LETTERS UNSCRAMBLE THEM'); 
WRITELN ('TO FIND THE WORD'); 
WRITELN; 

WRITELN ('START GUESSING. IF YOUR GUESS IS CORRRECT'); 
WRITELN('THE COMPUTER WILL PRINT THE LETTER ON THE SCREEN.'); 
REPEAT 
INDAT; 

IF COMPARE THEN 
BEGIN 

WRITE(LETTER); 
CORRECT := CORRECT + 1; 
END; 
LIMIT := LIMIT - 1; 
UNTIL (CORRECT = 5) OR (LIMIT = 0); 
WRITELN; WRITELN; 
IF LIMIT = THEN 
BEGIN 

WRITELN ('OUT OF GUESSES'); 
MEN := MEN - 1; 
END; 
POINTS := (2000 - (100 * (20 - LIMIT))) * LEVEL; 
PUYERUPDATE; 
END; 



PROCEDURE SCREEN2; 

BEGIN 

END; 



PROCEDURE SCREEN3; 

BEGIN 

END; 



PROCEDURE SCREEN^; 
BEGIN 



BEGIN {MAIN} 

{RESET (HISCORE, 'HISCORE'); 

{FILE ON DISK FOR SAVING LAST HIGH SCORE 

READLN(HISCORE,HI);} 
MEN := 6; 
POINTS := 0; 
LEVEL := 1; 
REPEAT 

SCREEN; 

IF MEN = THEN ENDGAME; 

SCREEN2; 

IF MEN = THEN ENDGAME; 

SCREEN3; 

IF MEN = THEN ENDGAME; 



LEVEL — LEVEL + 1; 
UNTIL (MEN = 0); 
ENDGAME; 
{CLOSE (HISCORE, LOCK) ;} 



iMcno 



Michael Allen has been programming in Pascal for about two 
years. He is currently employed at Martin Marietta Aerospace 
as a quality engineer and is working toward a B.S. in Computer 
Science at Chapman College. You may contact Mr. Allen at 
1500 West Cherry, Lompoc, CA 93436. 



36 



MICRO 



No. 65 ■ October 1983 



VIDEO TERMINAL BOARD 82-018 



This is a complete stand alone Video Terminal board. 
All that is needed besides this board is a parallel 
ASCII keyboard, standard NTSC monitor, and a 
power supply. It displays 80 columns by 25 lines of 
UPPER and lower case characters. Data is transfer- 
red by RS232 at rates of 110 baud to 9600 baud — 
switch selectable. The UART is controlled (parity etc.) 
by a 5 pos. dip switch. 

Complete source listing is included in the documen- 
tation. Both the character generator and the CRT pro- 
gram are in 2716 EPROMS to allow easy modification 
to your needs. 

This board uses a 6502 Microprocessor and a 6545-1 
CRT controller. The 6502 runs during the horz. and 
vert, blanking (45% of the time). The serial input port 
is interrupt driven. A 1500 character silo is used to 
store data until the 6502 can display it. 




Features 

• 6502 Microprocessor 

• 6545-1 CRT controller 

• 2716 EPROM char. gen. 

• 2716 EPROM program 

• 4K RAM (6116) 



2K EPROM 2716 

RS232 I/O for direct 

connection to computer 

or modem. 

80 columns x 25 line display 



llfllfllllilfllffliTl 



• Size 6.2" X 7.2" 

• Output for speaker (bell) 

• Power +5 700Ma. 

+ 12 50Ma. 
-12 50Ma. 

























BAUD RATE 


VIDEO TERMINAL 






K 


GENERATOR 
110-9600 


82-018 






^ 


r 












UART 


\ 


VIDEO 
DISPLAY 
CIRCUIT 


^ 










\ PARALLEL \ 
\ KEYBOARD \ 
/ INPUT / 


\ 
/ 






/ 


/ 














\ 
1 


7 ^ 


7 


L A 


i ▲ A 


L 































COMPOSITE 
VIDEO 



SPEAKER 
(BELL) 



OUT IN 
RS232 I/O 



+ 5 +12 -12 GND. 



This board is available assembled and tested, or bare board with the two EPROMS 
and crystal. 

Assembled and tested #82-01 8A $199.95 

Bare board witii EPROMS and crystal #82-01 8B $ 89.95 

Both versions come with complete documentation. 



•John Bell Eivgiiveerino, Inc. 



#249 



ALL PRODUCTS ARE AVAILABLE FROM JOHN BELL ENGINEERING, INC. • 1014 CENTER ST., SAN CARLOS, CA 94070 
ADD SALES TAX IN CAUFORNIA • ADD 5% SHIPPING & HANDLING 3% FOR ORDERS OVER $100 

SEND $1.00 FOR CATALOG (415) 592-8411 ^^J^ ^i^^^O^r"!:^^^^ 

WILL CALL HOURS: 9am • 4pm ^^^ *^ "^ ^^^ ^■^'^' 
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Rapid 
String/ 



When an Applesoft BASIC pro- 
gram is employed to search an 
array containing hundreds or 
thousands of names and addresses, the 
results can be relatively slow in forth- 
coming. This is a major reason that 
assembly language (ASL) is used for 
the tasks. 

The ASL Program 

Listing 1 is a 6502 assembly-language 
program that utilizes two important 
Applesoft interpreter functions — 
PTRGET ($DFE3) and GETARYPT 
($F7D9|. PTRGET allows the attain- 
ment of descriptor addresses for string 
variables using VARPNT ($83,84) loca- 
tions. The descriptor consists of three 
bytes, the first leading to the string 
length and the next two to the string 
address (low /high bytes, respectively). 
The manner in which the string/ sub- 
string (B$) length is obtained, as well as 
the pointers to the addresses containing 
the string variable values, is depicted in 
lines 27-40. 



This Applesoft BASIC program demonstrates the use of 
a machine-language program to obtain a rapid array 
search. String-array variables can be quiclcly scanned for 
string/substring variables making it possible to search 
up to 11000 characters in a fraction of a second. 



Suljstring 




by L S. Reich 



m 



MICRO 



The utilization of GETARYPT 
allows the attainment of descriptor ad- 
dresses for variable string arrays. 
Initially, GETARYPT is employed to 
find the location of a string array header 
whose address is stored in LOWTR 
($9B,9C) locations. Seven bytes are 
then added to find the location of the 
descriptor for the first array element 
(A$(0)), and the next descriptor is three 
bytes away, etc.; e.g., lines 99-105 (also 
see p. 137 of the Applesoft II BASIC 
Progiamming Reference Manual). This 
is depicted in lines 43-50. In lines 
51-59, the string array length is ob- 
tained as well as array pointers to ad- 
dresses containing the variable string 
array values. In lines 61-67, the string 
array length for A$(J) is compared with 
the string length for B$. If the latter 
value is larger, then another descriptor 
is obtained for the next string array, 
lines 99-106; otherwise, the difference 
in the lengths is stored in PTR -h 1 to 
determine the last test position. In 
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lines 69-86, a counter is used (PTR) to 
determine whether the last test posi- 
tion has been reached; if not, then fur- 
ther comparisons are made between 
A$(J) and B$. 

A successful comparison (GOTWRD) 
results in location $1A possessing a 
value of $FF (lines 108-110) and a 
return to the BASIC program. Lines 
83-86 allow A$(J) to be compared along 
its length with string/ substring B$. In 
lines 87-97, the values in counters 
$1B,1D (low/high bytes, respectively) 
are compared with the number-of-words 
limit established in locations $3AA,3AB 
(low/high bytes, respectively). This 
limit was imposed in the associated 
BASIC program. When this limit (N in 
the BASIC program) is attained, BASIC 
is reentered (line 111). 

The BASIC Program 

Listing 2 is the BASIC program. As 
previously mentioned, the number-of- 
words limit (N) is stored in locations 
$3AA,3AB (lines 40 and 70). If the 
RETURN key is used for the key word 
(B$), then the program ends (lines 
90-100). In line 110, if D$ = "N" then 
only the first string array (A$(J)) that 
shows a match with the string/ sub- 
string (B$) will be displayed. However, 
if D$ = "Y" then all string arrays con- 
taining B$ will be displayed. 

Line 310 represents the first string 
array, A$(0). In line 130, the ASL pro- 
gram is called using CALL 768,B$,A$. 
The ampersand function may be used 
instead of "CALL 768" by appropriate 
modification of the program. This 
change should result in a slightly faster 
program. When a successful match has 
been obtained [($1A) = $FF], the 
matched string variable is displayed 
(line 150). If D$ = "N" the program 
then ends; otherwise ($1A) is reset to 
zero and the matching is continued 
(lines 170-180). 

References 

1. G. B. Little, MICRO, (57:32). 

2. L. Reynolds, Call-A.P.P.L.E., p. 26 
(January 1981). 

3. B. Sander-Cederlof, Apple Assembly 
Line, #7, p. 18 (1981). 

4. J. Crossley, Call-A,P.P.L.E. in 
Depth, #1, p. 51 (1981). 

5. C. Kluepfel, Call-A.P.P.L.E., p. 50 
(May 1981). 
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String Search 












requires: 












Apple 


It 


Listing 1 
















* 
* 


apld String Search 


* 






By L.S 


. Reich 


* 






* 


CALL 768,B$,A$ 








* Search for B$ 


in A$ using 


ML * 






* Routine from Applesoft BASIC * 1 

* « 1 






* 


Copyright (C) 1983 


K 






* 


By MICRO Ink 


^ 






# 


10 Northern Blvd. 


» 






» 


Amherst, 


NH 03031 


* 
* 






************************************ 1 








START 










** APPLESOFT POINTERS: 








PTR 


GEQU 


$10 








VARPNT 


GEQU 


$83 








LOWTR 


GEQU 


$9B 








LENB 


GEQU 


$D0 








CHKCOM 


EQU 


$DEBE 








PTRGET 


EQU 


$DFE3 








GETARYPT EQU 


$F7D9 










ORG 


$300 




0033 


0300 20BEDE 




JSR 


CHKCOM 




0034 


0303 20E3DF 




JSR 


PTRGET 




0035 


0306 AOOO 




LDY 


#$00 




0036 


0308 841A 




STY 


$1A 


Initialize 


0037 


030A 841B 




STY 


$1B 




0038 


030C 8410 




STY 


PTR 




0039 


030E 841D 




STY 


$113 




0040 


0310 B183 




LDA 


( VARPNT ),Y 




0041 


0312 85D0 




STA 


LENB 




0042 


0314 C8 




INY 






0043 


0315 B183 




LDA 


(VARPNT), Y 


Get Pointers 


0044 


0317 8506 




STA 


$06 


and Store 


0045 


0319 C8 




INY 






0046 


031A B183 




LDA 


( VARPNT), Y 




0047 


031C 8507 




STA 


$07 




0049 


03 IE 20BEDE 




JSR 


CHKCOM 




0050 


0321 20D9F7 




JSR 


GETARYPT 




0051 


0324 A59B 




LDA 


LOWTR 




0052 


0326 18 




CLC 






0053 


0327 6907 




ADC 


#$07 


Get to first 


0054 


0329 85E7 




STA 


$E7 


Array Variable 


0055 


032B A59C 




LDA 


LOWTR+1 




0056 


032D 6900 




ADC 


#$00 




0057 


032F 85E8 




STA 


$E8 




0058 


0331 AOOO 


LOOP 


LDY 


#$00 




0059 


0333 B1E7 




LDA 


($E7),Y 




0060 


0335 B5D1 




STA 


LENB+1 




0061 


0337 08 




INY 






0062 


0338 B1E7 




LDA 


($E7),Y 


Get Array 


0063 


033A 8508 




STA 


$08 


Pointers and 


0064 


033C C8 




INY 




Store 


0065 


033D B1E7 




LDA 


($E7),Y 




0066 


033F 8509 




STA 


$09 




0068 


0341 A5D1 




LDA 


LENB+1 




0069 


0343 C5D0 




CMP 


LENB 




0070 


0345 902A 




BLT 


AGAIN 




0071 


0347 A5D1 




LDA 


LENB+1 




0072 


0349 38 




SEC 






0073 


034A E5D0 




SBC 


LENB 




0074 


034c 8511 




STA 


PTR+1 




0075 


034E A900 




LDA 


#$00 




0076 


0350 8510 




STA 


PTR 












(Continued on next page) 1 



MICRO 



39 



:Apple\ 




lelecommuni^lggf^ 



with a difference! 



Unexcelled communications power and 
compatibility, especially for professionals and 
serious computer users. Look us over; SuperTerm 
isn't just "another" terminal program. Like our 
famous Terminal-40, it's the one others will be 
judged by. 

• UP/DOWNLOAD FORMATS -CBM,Xon-Xoff, 
ACK-NAK, etc. 

• DISPLAY MODES- 40 column; 80/132 with 
side-scrolling 

• EMULATION — 42 popular terminal protocols 

• FUNCTION KEYS — 8 standard, 52 user-defined 

• BUFFERS — Receive, Transmit, Program, and Screen 

• EDITING — Full-screen editing of Receive buffer 

• FILE CONVERSION -ASCII to PGM, PGM to ASCII 

• PRINTING — Continuous printing with Smart ASCII 
and parallel printer; buffer printing with other interfaces 
or VIC printer 

• DISK SUPPORT --Directory, Copy, Rename, Scratch, 
etc. 

• FLEXIBILITY — Select baud, duplex, parity, stopbits, etc. 

Program options are selected by menus and function 
keys. For maximum convenience, an EXEC file sets 
options on start-up. SuperTerm may be backed-up for 
safety. Software on disk or cassette, with special 
cartridge module. 

Write for the full story on SuperTerm; or, if you 
already want that difference, order today! 

Requires: Commodore 64 or VIC-20, disk drive or Datasette, and 
compatible modem. VIC version requires 16K memory expansion. Please 
specify VIC or 64 when ordering. 



Just need UP/DOWNLOAD? 

If you don't yet need Superlerm's power, perhaps 
Terminal-40 Plus (VIC) or '64 Terminal Plus is right for 
you. We took our top-rated, smooth-scrolling terminal 
programs, added up/download, disk commands, and 
even more convenience. Then we put them on disk for 
fast loading, just like you wanted. Need we say more? 

Only $49.95 (VIC version requires 8K mem exp) 
RS. Trade in your original Terminal-40 or '64 Terminal and 

deduct SI 0.00. 
VtC 20 and Commodore 64 are trademarks of Commodore Electronics, Ud. 

MICRO .nc,.?^^^^«««,.s*. 
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Listing 1 (continued) 



0078 


0352 AOFF 


Yl 


LDY 


#$FF 




0079 


0354 08 


Y2 


INY 






0080 


0355 F004 




BEQ 


Y4 




0081 


0357 C4D0 




CPY 


LENB 


Finished? 


00S2 


0359 F03D 




BEQ 


GOTWORD 


Yes 


0083 


035B BIOS 


y4 


U^A 


($08), Y 


No 


0084 


03 5D D106 




CMP 


($06), Y 




0085 


035F F0F3 




BEQ 


Y2 




0086 


0361 E610 




INC 


PTR 




0087 


0363 A511 




LDA 


PTR+1 




0088 


0365 C510 




CMP 


PTR 




0089 


0367 9008 




BLT 


AGAIN 




0090 


0369 E608 




INC 


$08 




0091 


O36B D0E5 




BNE 


Yl 




0092 


O36D E609 




INC 


$09 




0093 


036F DOEl 




BNE 


Yl 




0094 


0371 AOOO 


AGAIN 


LDY 


#$00 




0095 


0373 8410 




STY 


PTR 




0096 


0375 E6IB 




INC 


$1B 


Numtier Words 


0097 


0377 D002 




BNE 


Y3 


Lobyte 


0098 


0379 E61D 




INC 


$1D 


Number Words 


0099 


037B A51B 


Y3 


LDA 


$1B 


Hibyte 


0100 


037D 38 




SEC 




Words Limit 


0101 


03 7E EDAAO3 




SBC 


$3AA 


Lobyte 


0102 


0381 A51D 




LDA 


$1D 


Words Limit 


0103 


0383 EDABO3 




SBC 


$3AB 


Hibyte 


0104 


0386 1015 




BPL 


OVER 


Finished 


0106 


0388 A5E7 




IDA 


$E7 


Get new 


0107 


038A 18 




CLC 




Descriptor 


0108 


03 8B 6903 




ADC 


#$03 


For next array 


0109 


O38D 85E7 




STA 


$E7 




0110 


038F A5E8 




LDA 


$E8 




0111 


0391 6900 




ADC 


#$00 




0112 


0393 85E8 




STA 


$E8 




0113 


0395 4C3103 




JMP 


LOOP 




0115 


0398 A9FF 


GOTWORD 


LDA 


#$FF 


Sucess 


0116 


039A 851A 




STA 


$1A 


Marker 


0117 


039C 60 




RTS 






0118 


03 9D 4C03E0 


OVER 


JMP 


$E003 


BASIC 


0119 


03A0 




END 







Listing 2 



10 REM **APPLES0FT PROGRAM FOR USE WITH ML SEARCH ROUTINE*^^ 

15 TEXT : HOME : VTAB 10: PRINT " SETTING UP STRING SEARCH" 

20 IF PEEK (927) = 224 THEN 40 

30 PRINT CHR$ (4)"BL0AD STRING. OB J, A$3 00" 

40 N - 257: REM NUMBER OF WORDS SEARCHED 

50 DIM A$(N) 

60 HI = INT (N / 256) :L0 = N - HI * 256 

70 POKE 938, LO: POKE 939, HI: REM NUMBER OF WORDS LIMIT 

80 FOR I = TO N - 1: READ A$(l)r NEXT 

90 INPUT "GIVE KEY WORD: ";B$ 

100 IF B$ = "" THEN 200 

110 INPUT "ALL OR FIRST OCCURAKCE (A/F)? ";F$ 

120 REM ***************^****»******************** 

130 CALL 768,B$,A$: REM GET A$'S MATCHING B$'S 

140 REM ***tt**it*****^t*«***^******i******«***f***** 

150 IF PEEK (26) = 255 THEN PRINT A$( PEEK (29) * 256 + 
PEEK (27)): PRINT :REM DISPLAY SIGNAL 

160 IF F$ = "F" THEN 200 

170 POKE 26,0: REM REINITIALIZE 

180 CALL 881: REM CONTINUE MATCHING 

190 GOTO 150 

200 END 

300 DATA LEO, LE0N,SAL,D0RIS,MARGE,BILL, JOHN, WALTER, 
PETER , HANS , GEORGE , CHARLES , FRANK , KELLY , RORY , 
TED , LEONARD , JACK , DAVID , WILLIAM, WILLA, MARY , 
MARGO , ALICE , JASON , MARK 



(continued) 
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Listing 2 (continued) 

310 DATA GRAYSON, ABEL, BETTY, CARA, DALE, ELLA, FRANCIS, 

FRANCES , GAIL , HARRY , HAROLD , ERNEST , JILL , KI LMER , 
NORMAN, OLIVER, PHILLIP, ROBERT, SALLY, THOMAS, 
ARNOLD , BUELL , MA YNARD , MOIRA , HALEY 
DATA MERLE, MURIEL, JACKSON, HILIARY, HOLMES, STANLEY, 

MARGARET , S IMPSON , SYLVIA , BERNI CE , BERNARD , CARRIE , 
CHARLOTTE, PEARL, MINNIE, NORMA, ANN, VIRGINIA, GRACE, 
ROSE, ROSEMARY, LILLIAN, LOUISE, LILA,NELLIE 
DATA LEWIS, LEWISON, LENNY, HERMAN, LESTER, LEMUEL, SAMUEL, 
HOMER, LARS , WOLF, XAVIER, YOUNG, ZELMO, ELMER, HILMER, 
BARRY , STEVE , STEPHEN , PHILO , GARRY , PRESTON , SANDRA , 
SANDY , ALBERT , CARMEN , ALDO , ZERO 
DATA LEWIS , OIW I SON, LENNY, HERMAN, LESTER, LEMUEL, SAMUEL , 
HOMER , LARS , WOLF , XAVIER , YOUNG , ZELMO , ELMER , HILMER , 
BARRY, STEVE, STEPHEN, PHILO, GARRY, PRESTON , SANDRA, 
SANDY , ALBERT , CARMEN , AIDO , ZERO 
DATA MERLE , MURIEL , JACKSON , HI LLAHY , HOLMES , STANLEY , 

MARGARET , SIMPSON , SYLVIA , BERNICE , BERNARD , CARRIE , 
CHARLOTTE , PEARL , MINNIE , NORMA , ANN , VIRGINIA , GRACE , 
ROSE, ROSEMARY, LILLIAN, LOUISE , LILA, NELLIE 
DATA GRAYSON, ABEL, BETTY, CARA, DALE, ELLA, FRANCIS, FRANCES, 
GAI L , HARRY , HAROLD , ERNEST , JILL , KILMER , NORMAN , 
OLIVER , PHI LLIP , ROBERT , SALLY , THOMAS , ARNOLD , BUELL , 
MA YN ARD , MOIRA , HALEY 
DATA LEO , LEON , SAL , DORIS , MARGE , BILL , JOHN , WALTER , PETER , 
HANS , GEORGE , CHARLES , FRANK , KELLY , RORY , TED , LEONARD , 
JACK, DAVID, WILLIAM, WILLA, MARY, MARGO, ALICE, JASON, MARK 
380 DATA GRAYSON,ABEL,BETTY,CARA,DALE,ELLA, FRANCIS, FRANCES, 
GAIL, HARRY, HAROLD, ERNEST, JILL, KILMER, NORMAN, OLIVER, 
PHI LLI P , ROBERT , SALLY , THOMAS , ARNOLD , BUELL , MAYN ARD , 
MOIRA, HALEY 
390 DATA MERLE, MURIEL,JACKSON,HILLARY,HOLMES,STANLEY,MARGARET, 
SIMPSON , SYLVIA, BERNICE, BERNARD, CARRIE, CHARLOTTE , 
PEARL, MINNIE, NORMA, ANN, VIRGINIA , GRACE, ROSE , ROSEMARY, 
LILLIAN, LOUISE, LILA, NELLIE 
AOO DATA LEWIS, LEWISON, LENNY, HERMAN, I^STER, LEMUEL, SAMUEL, 
HOMER , LARS , WOLF , XAVIER , YOUNG , ZEMO , ELMER , HI LMER , 
BARRY , STEVE , STEPHEN , PHILO , GARRY , PRESTON , SANDRA , SANDY , 
AI:BERT , CARMEN , ALDO , ZERO JAI^CQlO 
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330 



340 



350 
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SAVE MORE 

THAN EVER ON 

3MScotoK 

DISKETTES! 



$195"t;I$27S' 

I Qty. 20 (745)— i- ^^ Qty. 20 



5V4" SSQD— 96TPI (746) $2.89 ea. 

5V4" DSQD— 96TPI (747) $3-95 ea, 

(Specify soft, 10 or 16 sector.) 

8" SSSD (740) $2.07 ea. 

8" SSDD (741) $2.54 ea. 

8" DSDD (743) $3.30 ea. 

(Specify soft or 32 sector.) 

Save even more on quantity orders! 

Minimum Order: 20 diskettes. Add $3.00 shipping 

per 200 diskettes. C.O.D. charge $1.65 additional. 

Visa • Mastercard • Checks 



For fast service, call 

DISK WORLD! 

Nationwide: 1-800-621-6827 

In Illinois: 312-944-2788 

DISK WORLD! 

Suite 4806 • 30 East Huron Street • Chicago, Illinois 60611 



Authorized Distributor 
Information Processing Products 



DISCOUNT COMPUTER 




||cipplc' 



I 



Ellfninator 


$29.95 


21.00 


War 


24.95 


18.00 


Adventureland 


29.95 


21.00 


Pirates Adventure 


29.95 


21.00 


Golden Voyage 


29.95 


21.00 


Magic Window 


99.95 


72.00 


Temple of Apshai 


39.95 


29.00 


Upper Reaches of Apsfiai 


19.95 


15.00 


Curse of Ra 


19.95 


15.00 


Midway Campaign 


16.00 


12.00 




29.95 


21.00 


DOS Boss 


24.00 


18.00 


The Arcade Machine 


44.95 


33.00 


Star Blazer 


31.95 


23.00 


Choplifter 


34.95 


25,00 


Serpentine 


34.95 


25.00 


Deadly Secrets 


34.95 


25.00 


Raster Blaster 


29.95 


21.00 


Bug Attack 


29.95 


21.00 


The Home Accountant 


74.95 


54.00 


Snack Attack 


29.95 


21.00 


Pig Pen 


29.95 


21.G0 


Wordrace 


24.95 


18.00 


Rendevous 


39.95 


29.00 


Russki Duck 


34.95 


25.00 


Horizon V 


34.95 


25.00 


Sargon II 


34.95 


25.00 



9.95 29.00 
9.95 29.00 



49.95 36.00 
39.95 29.00 



Zorkl 

Zork II 

Deadline 

Mastertype 

Castle Wolfenstein 29.95 21.00 

Supertextll 150.00 108.00 

Softcard Premium System 775.00 600.00 

Wizard and the Princess 32.95 24.00 

Time Zone 



Cranston Manor 
Threshotd 
Softporn Adventure 
Crossfire 
Frogger 
Laff Pak 
Ultima II 
Screenwriter II 
Graphics Magician 
Pie Man 
Fastgammon 
Congo 
Goldrush 
Gorgon 
Beer Run 
Snake Byte 



Intec 32K Board $75.00 

APPLE Compatible Disk Drive $265. oo 

VERBATIM/DATALIFE Disks $26.00 



Threshold (d) $39.95 29.00 

Snake Byte (d) 29.95 21.00 

Space Eggs (d) 29.95 21.00 

Bandits (d) 34.95 29.00 

Color Print (d) 39.95 29.00 

Canyon Climber (d) 29.95 21.00 

Shooting Arcade (d) (t) 29.95 2100 

Pacific Coast Highway (d) (t) 29.95 21.00 

Clowns And Balloons (d) (t) 29.95 21.00 

Wordrace (d) 24.95 18.00 

Andromeda (d) 34.95 25.00 

Deadline (d) 49.95 36.00 

Zork I (d) 39.95 29.00 

Zork II (d) 39.95 29.00 

Alien Swarm (d) 34.95 25.00 

Action Quest (d) (t) 29.95 21.00 

Ghost Encounters (d) (t) 29.95 21.00 

K-Razy Shootout (c) 49.95 36.00 

K-Razy Kritters (c) 49.95 36.00 

Ultima I (d) 39.95 29.00 

All Baba and Forty Thieves (d) 32.95 24.00 

Deluxe Invaders (c) 39.95 29.00 

Gorf (C) 49.95 36.00 

Wizard of Wor (c) 49.95 36.00 

Preppie (d) (t) 29.95 21.00 

Tigers in The Snow (d) (t) 39.95 29.00 

Ghostly Manor (d) 24.95 18.00 

Raster Blaster (d) 29.95 21.00 

SPECIAL OFFERS 



99.95 72.00 

34.95 25.00 

39.95 29.00 

29.95 21.00 

29.95 21.00 

34.95 25.00 

34.95 25.00 

59,95 44.00 

129.95 94.00 

59.95 44.00 

29.95 21.00 

24.95 18.00 

34.95 25.00 

34.95 25.00 

39.95 29.00 

29.95 21.00 

29.95 21.00 



JK 



C=Cartridge 


ATARI' 


Rear Guard (d) 


24.95 


18.00 


Rear Guard (t) 


19.95 


15.00 


Caverns of Mars (d) 


39.95 


29.00 


Atari Basic (c) 


59.95 


45.00 


Star Raiders (c) 


44.95 


33.00 


Centipede (c) 


44.95 


33.00 


Pac Man (c) 


44.95 


33.00 


Pilot (c) 


79.95 


60.00 


Temple of Apshai (d) (t) 


39.95 


29.00 


Upper Reaches of Apshai (t) 


19.95 


15.00 


Curse of Ra (d) 


19.95 


15.00 


Midway Campaign (t) 


16.00 


12.00 


Apple Panic (d) 


29.95 


21.00 


Track Attack (d) 


29.95 


21.00 


Choplifter (d) 


34.95 


25.00 


Star Blazer (d) 


31.95 


24.00 


Wizard and the Princess (d) 


32.95 


24.00 


Jawbreaker (d) (t) 


29.95 


21.00 


Crossfire (d) (t) 


29.95 


21.00 


Frogger (d) (t) 


34.95 


25.00 


The Shattered Alliance (d) 


39.95 


29.00 


Battle of Shiloh (d) 


39.95 


29.00 


Submarine Commander (c) 


49.95 


39.00 



MANY MORE PROGRAMS AVAILARLE 



TERMS: Send check or money order 
for total purchase price, plus $2.00 
for shipping. Ml residents add 4% 
tax. C.O.D. accepted. 

® MFOS. TRADEMARK 



VISA AND MASTERCARD ACCEPTED F^ 



STROM as 



P.O. Box 197 
Plymouth, Mi. 48170 
(313) 455-8022 



SYSTEMS INC. 



WRITE OR CALL FOR FREE CATALOG 

PHONE ORDER HOURS 

4 PM ■ 9 PM MON.-FRI. 

INCLUDE CARD NUMBER 
AND EXPIRATION DATE WITH 

CREDIT CARD ORDERS. 
INCLUDE TYPE OF COMPUTER. 
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-.Apple: 



rDirectory Menu- 
for the Appl< 



by Keith Davison and Pliii Daiey 



L 


















^^Hhe Apple menu program uses a 
















^^^^ ^1 maf'Vil-nf-liincmao-F' rnntinp tn 


Listing 1 
















^ convert the normal CATALOG 






******^t*^^********^^^t**^*i^*J^^t**^t*x***»^t 








routine into a string array of the in- 






* 






* 








dividual entries. CAT. OBJ (listing 1) is 






* MENU DIRECTORY 

* BY KEITH DAVISON 


* 
* 








the assembly-language listing of the 






* 






^ 








routine to accompUsh this task. If you 






***^t*******»^t*****X**f*}f**^t»**+f******* 








don't have an assembler, enter the 






CSW GEQU 


$36 


0056 


0344 2039D5 


JSR 


GDBUFS 




monitor with a CALL- 151 and type 






INDEX GEQU 


$5E 


0057 


0347 AD2703 


LDA 


STORE+1 










RTS EQU 


$60 


0058 


034a 2052E4 


JSR 


GETSPA 










FRESPC GEQU 


$71 


0059 


034D AC2703 


LDY 


STORE+1 










VARPNT GEQU 


$83 


0060 


0350 A900 


IDA 


#KEYBUF 










RETURN EQU 


$8D 


0061 


0352 855E 


STA 


INDEX 










TXTPTR GEQU 


$B8 


0062 


0354 A902 


LDA 


/KEYBUF 










COUNT GEQU 


$FE 


0063 


0356 855F 


STA 


INDEX+1 










FLAG GEQU 


$FF 


0064 


0358 88 LOOP DEY 












KEYBUF EQU 
SETPTR EQU 
PAUSE EQU 


$200 


0065 
0066 
0067 


0359 B15E 


LDA 


(INDEX), Y 
( FRESPC ),Y 










$3EA 
$AE34 


03 5B 9171 
03 5D 98 


STA 
TYA 


Listing 2 






GDBUFS EQU 


$0539 


0068 


03 5E D0F8 


BNE 


LOOP 








PTRGET EQU 


$DFE3 


0069 


0360 A5B8 


LDA 


TXTPTR 


10 TEXT : HOME 






GETSPA EQU 


$E452 


0070 


0362 48 


PHA 




20 PRINT CHR$ (4)"BL0AD CAT.OBJ,A$300" 






COUTl EQU 


$FDFO 


0071 


0363 A5B9 


LDA 


TXTPTR+1 


30 GOTO 120 






SETKBD EQU 


$FE89 


0072 


0365 48 


PHA 




40 INVERSE : PRINT LEFT$ CQ$,2);: NORMAL 






SETVID EQU 


$FE93 


0073 


0366 A98D 


LDA 


#DATA 


50 PRINT MID$ (Q$,3);: RETURN 










0074 


0368 85B8 


STA 


TXTPTR 


60 IF CARD = 3 THEN PRINT CHR$ (12): RETURN 






ORG 


$300 


0075 


036A A903 


LDA 


/DATA 


70 HOME : RETURN 










0076 


036C 85B9 


STA 


TXTPTR+1 


80 IF J / (CARD *2/3+2)< > 


0027 


0300 A960 


BEGIN LDA 


#RTS 


0077 


036E 20E3DF 


JSR 


PTRGET 


INT (J / (CARD * 2 / 3 + 2)) THEN PRINT 


0028 


0302 8D34AE 


STA 


PAUSE 


0078 


0371 68 


PLA 




90 RETURN 


0029 


0305 A900 


IJ3A 


#KEYBUF 


0079 


0372 85B9 


STA 


TXTPTR+1 


100 J$ = "": IF J < 10 THEN J$ = "0" 


0030 


0307 85FE 


STA 


COUNT 


0080 


0374 68 


PLA 




110 J$ = J$ + STR$ (J) : RETURN 


0031 


0309 85FF 


STA 


FLAG 


0081 


0375 85B8 


STA 


TXTPTR 


120 DIM A$(100),AA$(100),B$(100),I$(100),T$(100), 


0032 


030B 2089FE 


JSR 


SETKBD 


0082 


0377 AOOO 


LDY 


#$0 


S$(100),R$(100): TEXT : HOME 


0033 


03 OE A926 


LDA 


#STORE 


0083 


0379 AD2703 


LDA 


STORE+1 


130 CARD =3: REM 80 COLUMN CARD SLOT: 


003-1 


0310 8536 


STA 


CSW 


0084 


037C 9183 


STA 


( VARPNT ),Y 


SET TO FOR NORMAL 40 COLUMN DISPLAY 


0035 


0312 A903 


LDA 


/STORE 


0085 


037E C8 


INY 




140 CALL 768 


0036 


0314 8537 


STA 


CSW+1 


0086 


037F A571 


IDA 


FRESPC 


150 PRINT CHR$ (4) "CATALOG" 


0037 


0316 20EA03 


JSR 


SETPTR 


0087 


0381 9183 


STA 


( VARPNT ),Y 


160 PR# CARD: CALL 1002 


0038 


0319 A900 


RESTOR LDA 


#KEYBUF 


0088 


0383 C8 


INY 




170 COUNT = PEEK (254) - 1 


0039 


031B 8D2703 


STA 


STORE+1 


0089 


0384 A572 


LDA 


FRESPC+1 


180 PRINT : PRINT COUNT" CATALOG ENTRIES ON '■AA$(2) 


00-40 


03 IE A902 


LDA 


/KEYBUF 


0090 


0386 9183 


STA 


( VARPNT ),Y 


190 FOR J = 4 TO COUNT 


0041 


0320 8D2803 


STA 


STORE+2 


0091 


0388 E6FE 


INC 


COUNT 


200 Z$ = MID$ (AA$(J),2,1) 


0042 


0323 C6FF 


BACK DEC 


FLAG 


0092 


038A 4C1903 


JMP 


RESTOR 


210 IF Z$ = "T" THEN T = T + 1: GOSUB 100:T$(T) = J$ + 


0043 


0325 60 


RTS 




0093 


038D 


MSB OFF 


MID$ (AA$(J),8,18): GOTO 270 


0044 


0326 8D0002 


STORE STA 


KEYBUF 


0094 


038D 204141 DATA DC 


C AA$(' 


220 IF Z$ = "I" THEN 1=1+1: GOSUB 100:I$(l) = J$ + 


0045 


0329 EE2703 


INC 


STORE+1 




0390 2428 






MID$ (AA$(J),8,18): GOTO 270 


0046 


032C E6FF 


INC 


FLAG 


0095 


0392 E2 


DC 


H'E2' 


230 IF Z$ = "A" THEN A = A + 1: GOSUB 100:A$(A) = J$ + 


0047 


032E FOOC 


BEQ 


CONT 


0096 


0393 283235 


DC 


C'(254)):' 


MID$ (AA$(J),8,18): GOTO 270 


0048 


0330 20F0FD 


JSR 


COUTl 




0396 342929 






240 IF Z$ = "B" THEN B = B + 1: GOSUB 100:B$(B) = J$ + 


0049 


0333 2089FE 


JSR 


SETKBD 




0399 3A 






MID$ (AA$(J),8,18): GOTO 270 


0050 


0336 2093FE 


JSR 


SETVID 






END 




250 IF Z$ = "S" THEN S = S + 1: GOSUB 100:S$(S) = J$ + 


0051 


0339 4CEA03 


JMP 


SETPTR 










MID$ (AA$(J),8,18): GOTO 270 


0052 


033C C98D 


CONT CMP 


^RETURN 










260 IF Z$ = "R" THEN R = R + 1: GOSUB 100:R$(R) - J$ + 


0053 


033E D0E3 


BNE 


BACK 










MID$ (AA$(J),8,19) 


0054 


0340 AE2703 


IDX 


STORE+1 










270 NEXT 


0055 


0343 CA 


DEX 












(continued) 
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Listing 2 28O sp$ = 


440 IF NOT S THEN 460 


290 T$ = "Text Files" + KEFT$ (SP$,10) 


450 PRINT S$j: FOR J = 1 TO S:Q$ = S$(J) : 


300 1$ = "Integer" + LEFT$ (SP$,13) 


GOSUB 40: NEXT : GOSUB 80 


310 A$ = "Applesoft" + LEFT$ (SP$,11) 


460 IF NOT R THEN 480 


320 B$ = "Binary" + U:FT$ CSP$,U) 


470 PRINT R$;: FOR J = 1 TO R:Q$ = R$(J): GOSUB 40: NEXT 


330 S$ = "Source" + LEFT$ {SP$,1'+) 


480 VTAB 23 


3^0 R$ = "Relocatable" + LEFT$ {SP$,9) 


490 INPUT "WHICH FILE TO RUN? ";A$ 


350 GOSUB 60: HTAB CARD * 6 + 9: PRINT " CATALOG " 


500 A = VAL {A$) 


360 IF NOT T THEN 380 


510 IF A = THEN HOME : END 


370 PRINT T$j: FOR J = 1 TO T:Q$ = T$(J): 


520 IF MID$ (AA$(A),2,1) = "S" OR MID$ (AA$(A),2,1) 


GOSUB 40: NEXT : GOSUB 80 


= "R" THEN PRINT "YOU CAN'T RUN AN 'R' OR 'S' 


380 IF NOT I THEN 400 


TYPE FILE": HOME : END 


390 PRINT I$j: FOR J = 1 TO I:Q$ - I$(J): 


530 IF MID$ {AA$(A),2,l) = "B" THEN A$ = "BRUN" 


GOSUB 40: NEXT : GOSUB 80 


540 IF MIDf (AA$(A),2,l) = "A" OR MID$ (AA$(A),2,1) 


400 IF NOT (A) THEN 420 


- "I" THEN A$ - "RUN" 


410 PRINT A$;: FOR J = 1 TO A:Q$ = A$(J): 


550 IF MID$ (AA$(A),2,l) = "T" THEN A$ = "EXEC" 


GOSUB 40: NEXT : GOSUB 80 


560 PRINT CHR$ (4);A$; MID$ (AA$(A),8) 


420 IF NOT B THEN 440 


570 REM END 


430 PRINT B$;: FOR J = 1 TO B:Q$ = B$(J): 
GOSUB 40: NEXT : GOSUB 80 


MOK) 



L 



"300:A9 60 ... etc.", entering all the 
hexadecimal code. After a RETURN 
you need only to type " : " to continue 
entering data. The monitor keeps track 
of the addresses. Type "300L" to check 
for mistakes and save the code with 
"BSAVE CAT.OBLA$300,L$39A". 

Type in the BASIC program as listed 
(listing 2). Line 130 provides for an 
80-column card in slot 3. This allows 
the menu to display the directory en- 
tries four across instead of two. If you 
don't have an 80-column card, set 
CARD = or delete the line altogether. 
For debugging, you might want to add a 
line 145 STOP to the program. If it 
never gets there, recheck your binary 
file. Also, I recommend that you run 
the program for the first time with a 
disk that you don't particularly care 
about since it is possible, although 
unlikely, to crash a disk. 

The routine at lines 200-270 checks 
the file- type and assigns the filename to 
an array of that file- type. This sorts the 
directory by file-type so that the listing 
can be printed in file-type order. If you 
do not use Source- or Relocatable-type 
files, there are several lines that can be 
omitted from the program: 250,260, 
330,340,440,450,460,470 (renumber 
480 to 440). Lines 350-490 print the 
directory file names and prompt for a 
choice. Lines 520-560 check for file- 
type and send the appropriate com- 
mand to DOS to execute the file. A 
change to allow RAM card owners to 
boot up in Applesoft and load only In- 
teger BASIC when needed would be to 
add code between 540 and 550 to load 
Integer on file-type "I". 

This routine is very fast; if you 
name the program "HELLO" so that it 
will run on boot-up, it is probably 
faster than booting and typing 
"CATALOG". 
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NO POWER SPIKES 
WITH SUPER FAN IL 



Super Fan IFs Zener Ray™ Transient 
Voltage Suppressor and Power 
Filter squelches spikes up to 6000 
amps — even those caused by 
lightning— while responding up to 
100 times faster than Apple II's 




built-in suppressor. 

In addition, Super Fan II cools 
your Apple, removing heat buildup 
at a remarkable 17 cubic feet of air 
per minute. Yet it's the quietest 
fan of its kind on 
the market. 

Super Fan II 
also positions a 
lighted on/off 
computer switch 
and two accessor>'^ 

plugs at your fingertips. It's warranted 
for two years and simply clips to 
your Apple II, He or monitor stand. 

See your R.H. Electronics dealer 
today about Super Fan II* or contact 
us at 566 Irelan Street, Buellton, 
CA 93427, (805) 688-2047. 

RHELECTRONICS, INC. 




Super Fan II, in black or tan: $109 
Without Zener Ray, $74.95. 
Additional air flow seals, $5. 
e in 240V/ 50 Hz. 



Dealer/ OEM inquiries invited. 
*U.S. Patent W268283 
n 4383286 



France, call BIR 1-255-4463 
Australia, call Imagineering (02)212-1411 
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Random 
Number 

Generator 



by Bill Walker 



A theoretical basis for tlie generation of uniformiy 
distributed pseudo-random numbers. 



Random number generators play a 
large part in many computer ap- 
plications. These applications 
can range from making sure not all of 
your Klingons are consistently 
destroyed^ to controlling computer 
simulations of real events. 

Many of the languages currently 
available for computers (personal or 
mainframe) contain some facility to 
generate random numbers. Most of 
these generators function by accessing 
some segment of memory that is likely 
to change frequently, and using the 
number thus obtained to generate a 
number that is claimed to be random. 
This process is not always com- 
pletely successful. 

The problem is that true ran- 
domness is hard to attain. Most 
physical phenomena are actually con- 
trolled by (perhaps unseen) forces that 
destroy true randomness. About the 
best that we can hope for is to generate 
a sequence of "pseudo-random" 
numbers, that behaves in a manner suf- 
ficient for our purposes. 

This article will provide insight 
into random number generators, which 
are present in many computer 
languages, and to present some 
algorithms for generating pseudo- 
random sequences of numbers in situa- 
tions where it is necessary for the pro- 
grammer to "roll their own." The 
discussion includes term definition, 
and the presentation of a widely used 
method for generating pseudo-random 
sequences. We will write a short pro- 
gram to implement the algorithm 
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presented, and use it to shuffle a 
card deck. 

Definitions 

For the purposes of this article, we 
will regard true random sequences of 
numbers as unattainable. (Even white 
noise usually has some organization to 
it.) We will concentrate instead on the 
concept of a pseudo-random sequence. 

Think of a pseudo-random sequence 
as a bag full of numbers. There are only 
so many numbers in the bag, but if we 
reach in the bag and pull out a number, 
there is no number which is more 
likely to be selected. That is, each 
number in the bag has an equal chance 
of being pulled from the bag. 

Each time we select a number from 
the bag, we will make use of it in 
whatever application that we will, and 
then return the number to the bag 
before we choose another number. It is 
clear that we will eventually choose 
the same number twice. 

If the bag is a smart bag, it will be 
sure that we use all of the numbers in 
the bag before it allows any number to 
be chosen twice. The fact that the 
smart bag will also present the 
numbers to us in some predetermined 
order should not be apparent. The 
numbers coming from the bag are said 
to form a pseudo-random sequence 
since the probability that a particular 
number is selected is the same as the 
probability for any other number. 

The number of numbers that are 
selected before the selected numbers 
start to repeat themselves is called the 
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period of the pseudo-random number 
generator. The period may possibly be 
as long as the total number of numbers 
in the bag, but can never exceed 
however many numbers are in the bag. 

To explore the replacement of the 
smart bag with a computer algorithm, 
we need to define two more terms. The 
first term, prime number, is an integer 
(whole or counting number) that can- 
not be divided evenly by any positive 
integers other than itself and 1 . For in- 
stance, the integers 3,5,7,11,13,17, and 
so on are prime numbers, while 2,4 and 
15 are not prime. It is clear that a prime 
number must be an odd number. 

A second related term is that of 
relatively prime numbers. Two 
positive integers are relatively prime if 
the smaller will not divide evenly into 
the larger one. An example would be 
the integers 2 and 9, neither of which 
happen to be prime, but these two 
numbers are relatively prime, since 2 
does not divide evenly into 9. 

The Algorithm 

We will present an algorithm called 
a multiplicative linear congruential 
pseudo-random number generator. " 
This particular algorithm is carefully 
disected and rigorously presented in 
Knuth' s The Art of Computer Program- 
ming, Volume 2, page 16. If you are a 
professional programmer, you need ac- 
cess to this fine text. 

The heart of the algorithm is the 
recursive formula: 

X(n + 1) = (A*X(n) -h C) MOD M 

where X(0), A, C, and M will be 
specified. The trick is to specify these 
quantities correctly. The following 
theorem appears in Knuth' s work. 

Theorem 

The above formula yields a pseudo- 
random sequence of length M (i.e. has 
period M) if and only if 

1 . C is relatively prime to M 

2. B = A - 1 is a multple of P for 
every prime P which evenly di- 
vides M 

3. if M is a multiple of 4, then B is 
also a multiple of 4. 

An especially convenient choice of 
M is to take M as some power of 2. This 
can make programming in some 
languages, such as assembly language, 

(Continued on page 47) 
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Tactical Armor Command 



One last tug to the helmet strap— a reassuring glance at the 
line ot powerful steel rmonsters and you know ail is ready, From 
your comnnand hatch you raise your hand and order 
^lorward"! The air suddenly fills with the roar of engines and the 
rumble of treads, as the mighty dreadnoughts of the land start 
forward. You command a team of your country's finest armored 
vehicles in a mission to search and destroy the enemy. 

T.A.C. is a game of World War II tactical armored combat, 
You pick a nation (from among the four major combatants- 
Britain, U.S.A., Germany and Russia). You build a combat 
team from their most powerful tanks, assault guns and tank 
destroyers. You command the team you've created in major 
operations against like forces of the enemy, 

All the famous vehicles of the second world war are here— 
Tigers, Panthers, Shermans and JS H's; Jagdpanthers, SU t52's. 
Fireflies and T 34's, just to name a few. They have all been 
thoroughly researched and their important features program- 
med into the game. Each vehicle is distinguished by such 
elements as armor thickness (rear and flanks as well as front), 
fire power, speed, acceleration and gun traverse. Even minor 
points like fuel tank location can be critical. 

The computer handles all the technical details, This lets you 
concentrate on making the same kinds of decisions the reah 
life tank commanders made. You search for the enemy, set 
your speed, aim your gun and knock out the enemy. The com^ 
puter will handle all the rest. 



Here are just some of the exciting features: 

T.A.C. can be played solitaire against the computer or as 
a two player (or two team) game with the computer as 
mediator. 

The most important armored vehicles of Britain, Russia, U.S. 
and Germany ore available to command— 40 in all. 

Choose from five different scenarios to play. Actions range 
from open meeting engagements to assaults against 
prepared positions. 

You pick the sides. You choose the weapons. A simple pur- 
chasing system has been provided to let you "buy" what you 
want in balance with your opponent. 

The results of combat are determined by the computer. It 
factors such critical elements as range, armor thickness (front, 
rear and flanks), tracking time, the speed and maneuvers of 
both the firing and target units, visibility and weapon adjust- 
ment to determine weapon accuracy. 

Special options include hidden movement, improved 
positions, smoke mortars, minefields, close assaults, overruns 
and indirect fire. 

T.A.C. on diskette retails for $40.00 and can be 



played on the; 



(Mockingboa^d^'^ Sound Enhanced!), Atari's® with 48K. 



Comnnodore^ 



following connputers: Apple® H's with 48K 



8t IBM® versions coming this fall. 



BY RALPH BOSSON 

® Trademarks of Apple 
Computers, Warner Com- 
munications, Commodore 
and International Business 
Moctiines. 



Tactical Level 



Strategic Level 




^: /^^^^ |v 



Available at finer computer stores everywhere. 
Or call TOLL FREE: 1 (800) 638-9292 for fast credit card purchase. Price: $40. Ask for Operator M. 

1 micpocomputep games' 

™™ A DIVISION OF 

The Avalon Hill Gome Company 

4517 Harford Road • Baltimore, MD 21214 



10610 BAYVIEW (Bayview Plaza) 
RICHMOND HILL, ONTARIO, CANADA L4C 3N8 
(416)884-4165 

C64-LINK 

The Smart 64 




RTC 




RTC 



Call or write ^ 

payments 

by VISA, 

MASTERCARD 

or BANK 

TRANSFER. 

Mail orders 

also by 

certified 

check, etc. 



Many more 64s 



^M 



I 



^^P 



J 



'.' . '■'. '■ '.'■ ' ■' . ' .' ■ '. I 



m^m ^ \ 



I 



^^ 



Spooling 

to 
Printer 



Cartridge 
Expansion Slot 



Switch 



Serial 

Audio I/O 

RF Video Port 



Cassette Port 



Users Port 




C64-LINK 



VL16 



(future) 

Cartridge 

Mother Board 



CP/M 



POWER 

And 
PAL® 



Other 
Cartridges 



IEEE Disks 

(2031) (4040) 

(8050) (8250) 

(9090) 



IEEE Printers 

(4022) (8023) 

(8300) 

etc. 




VIC Modem 



1541 Drive 


And 


1525 Printer 


or 1515 Printer 



or VL3 Cable 
to Parallel 
Printer 



lEEEtoParallel 
Interface 
Parallel 
Devices 



IEEE to Serial 

Interface 

True Serial 

Devices 



or VL4 Cable 

to Standard 

M odem 



MXO 



Give These Expanded ^ 

Capabilities To Your 64 ^ 



^The ability to transfer data from any type of device to another (IEEE, Serial, 
Parallel) 

i^ BASIC 4.0 which allows you to run more PET BASIC programs and gives you 
extended disk and I/O commands. 

^The ability to have several 64s on line together - sharing common IEEE 
devices such as disks or printers with Spooling Capability. 



^ Built-in machine language monitor 






if A built-in terminal or modem program which allows the system to communi- 
cate through a modem to many bulletin board systems and other computer 
mainframes. 



^Compatibility with CP/M. 



Contact your local Commodore dealer or RTC. 



Copyrights and Trademarks 

C64 !s a copyright of Commodore Business Machines, 
Inc. C64-LINK is a copyright of Richvale Tele- 
communications. CP/M IS a registered trademark of 
Digital -Research POWER is a trademarit of Pro- 
fessional " Software. PAL is a copyright of Brad 
Tefhpleton. 
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(Continued fiom page 44) 
very easy. Suppose we took M = 256 (2 
to the 8th) . Then 2 is the only prime P 
that divides M, so we can take B to be 
any even number^ and therefore A must 
be odd. Since we must have B, a multi- 
ple of A, let us choose, for instance, 
B = 12 or A = 13. In this case, C can be 
any number other than 2. For conve- 
nience we will take C to be 3. 
We now have the formula: 

X(n -K 1) = (13*X(n) + 3) MOD 256 

The following code would generate 
an array containing 256 pseudo-random 
numbers, ranging from to 255, and 
would contain no repeated numbers. 

X(0):= SEED; 

FOR I : = 1 TO 255 DO 

X(l):= (13*X(I-1) + 3) MOD 256; 

The SEED is any integer between 
and 255. Many small computers ar- 
range SEED to be the value of some 
byte that often changes, such as the last 
byte present on an I/O port. If the same 
number is used for SEED in a second 
run of the program segment, the 
resulting sequence of numbers will be 
exactly the same as before, but if a dif- 
ferent SEED is used, the resulting se- 
quence will be different. We see that 
since there are 256 possible choices 
for the SEED, the algorithm can gene- 
rate 256 different pseudo-random num- 
ber sequences. 

If we were to choose M to be much 
larger, say M = 1024 (2 to the 10th), 
we could generate 1024 different 
pseudo-random sequences with the 
same algorithm. 

An Example 

It is clearly to our advantage to 
choose M above as some power of 2. 
However, to illustrate that this is not 
necessary, we will write an example 
card deck shuffling program. 

We will number the cards in a stan- 
dard card deck from 1 to 52. For in- 
stance, we might have 

DECK[1] : = 'ACE OF SPACES' 
DECK[2]:= ACE OF CLUBS' 

and so on. To shuffle the deck we will 
just present the cards by choosing the 
subscripts of the DECK using a pseudo- 
random number generator of our own 
design. Clearly, we must have a period 
of 52, since we can't afford to deal the 
same card twice (!|. 
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We choose M = 52, to get the 
period that we desire. We are now re- 
quired to choose C so that C and M are 
relatively prime. Since M is an even 
number, it suffices to choose C as any 
odd number. We will pick C = 3 since 
that is as good as any. 

The choice of the mutiplier A is not 
as obvious. According to the theorem A 

- 1 must be a multiple of every prime 
that divides M. We note that M is 2 * 2 
* 13, so that A - 1 must be a multiple 
of 2 and of 13. We also note that 4 is a 
divisor of M, so that A - 1 must also be 
a multiple of 4. All of this means that A 

- 1 must be 4 * 13, or 52. So we take A 
to be 53. 

We now have the following 
algorithm: 

SUB := SEED; 

FOR I : = 1 TO 52 DO 

BEGIN 

WRITELN (DECK[SUB -K 1]); 

SUB := (53*SUB +3) MOD 52; 

END 

This will deal 52 cards in a random 
order. There are 52 possible such deal- 
ings. We can choose one by specifying 
the value of SEED, which can be the 
value of some memory location that 
varies radically in time, or some 
other number essentially independent 
of time. 

The subscript of "SUB + 1" was 
necessary, since the numbers generated 
vary between and 51, and not be- 
tween 1 and 52 as might be supposed at 
first glance. (It is clear that 52 MOD 52 
isO). 

Testing the Generator 

Assuring ourselves that the pseudo- 
random number generators that we in- 
vent are as "random" as possible is not 
an easy task. Poor choices of A, C, and 
M can lead to very poor generators. One 
famous example occurs in an old friend 
RANDU from unit-record processing 
days. On many machines, this 
generator used one of the poorest poss- 
ible choices of A, and thus provided 
bias to many unsuspecting users. 

If you run the card shuffler program 
segment above, you will discover that 
the generator tends to produce "runs" 
or sequences of numbers that do not ap- 
pear to be random in nature. The card 
shuffler will not pass a "visual inspec- 
tion" for randomness. How do you fix 
it? Just "fiddle" with the multiplier A 
and the SEED. You can improve con- 
siderably on the generator presented 
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above by trial and error methods. Of 
course, trial and error is not adequate 
for many purposes, and we would 
desire that there exist a more rigorous 
method of assuring randomness. Again, 
we find Professor Knuth coming to 
the rescue. 

Knuth devotes about 70 pages to the 
discussion of testing pseudo-random 
number generators such as the one 
above. Testing algorithms are 
presented and discussed in 
mathematical environment. If you are 
using random-number generators, 
either of your own design or as a built- 
in feature of language, you should ac- 
quire and read Knuth' s second volume. 
If you are only zapping Klingons, it is 
not really necessary of course, but if 
you are building bridges for the public 
to walk on, you probably should make 
a careful study, if only for your 
own benefit. 

It is interesting to note that 
RANDU, the built-in random number 
generator that was the standard in the 
industry for many years, flunks some 
of Knuth' s tests miserably. 

The random number generators pre- 
sent in some languages may be inade- 
quate for critical tasks, or may be ab- 
sent altogether. This article has 
presented an algorithm that allows the 
user to develop pseudo-random number 
generators that are adequate for most 
hobbyist purposes. The tests, which 
can be found in the literature, are 
capable of assuring that pseudo-random 
number generators are adequate for a 
given purpose. 

The following mles make design of a 
pseudo-random number generator easy. 

1 . Choose a period equal to a power 
of 2. 

2. Choose A to be equal to a power of 2 
plus 1. 

3. Choose C to be odd. 

Suggested Reading 

1 . The An of Computer Piogiamming, 
Volumes i^ii/hi, by Donald Knuth. 

2. Algonthms + Data Stmctuies = 
PiogToms, by N. Wirth. 

3. A Stmctmed Approach to Pascal, by 
Bill Walker. 

4. "Discrete Event Simulation," by 
Bill and Anita Walker (MICRO 56:21) 

Bill Walker is Assistant Professor of 
Electrical Engineering and Computer 
Science at the University of Oklahoma. 
You may contact him at Box 2806, 
Norman, OK 73070. 
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SEARCHING REVEALED: 
LINEAR SEARCH 



by Richard C. Vile, Jn 



Linear Search 

requires: 



Apple II 

Listings 1, 2, 4 and 6 require 

Applesoft. 

Listings 3 and 5 require Pascal. 



Searching is a technique used in 
many computer programs. More 
often than not, a list of some sort 
is searched. The list may consist of a 
variety of different kinds of informa- 
tion. For example: 

• A mailing-list program may use a 
list of names, addresses, or both. 

• In a program to maintain bowling 
scores, it may be necessary to search 
a list of names for the name of a 
specific player. 

• Computer language translators 
usually maintain a list of identifiers 
or keywords that must frequently be 
searched to distinguish names re- 
served by the language from those 
created by the programmer. 

• In an interactive game, a list of 
command words may need to be 
searched in order to match the com- 
mands typed by the player. 



In all these examples, the lists that 
are searched consist of what are usually 
called character strings, or simply 
strings. Strings are represented in 
various ways depending on the pro- 
gramming language you use: 
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APPLESOFT — String variables hold 
one string apiece: A$. 
Pascal — String variables hold one 
string apiece: S = 'Hi'. 
Assembly language — Strings are just 
sequences of bytes in memory. 
Integer BASIC — String variables are 
arrays of characters and usually hold 
one string apiece. 

Of course, in order to represent a 
list of items in a program, you must be 
able to store many strings at once. This 
is done using an array of strings. Not all 
Apple languages directly allow for ar- 
rays of strings — APPLESOFT and 
Pascal do; Integer BASIC and Assembly 
language do not. For this reason, my 
examples will center on the former 
two languages. 

Linear Search in General 

The general technique of linear 
search assumes the existence of a 
linearly ordered collection of items. In 
these examples, I consider arrays of 
strings. Any collection of "things" 
organized in a lineup of some sort may 
be subjected to linear search. Some ex- 
amples from real life are a pile of 

MICRO 



magazines on a coffee table, a shelf of 
books, a bin of records on sale at a dis- 
count store, your mailbox full of letters 
and junk mail, a poorly organized col- 
lection of recipes on 3 x 5 cards, and the 
want ads in your local newspaper. 

In all of these examples, if you were 
searching for a specific item such as 
last month's MICRO, an old Beatle's 
album, your income tax refund check, 
a recipe for Quiche Lorraine, or a For 
Sale ad for a used computer, you might 
be apt to start at the top and search 
through the collection one item at a 
time. You would continue until you 
found what you were looking for or un- 
til you ran out of items. 

In some cases you might take ad- 
vantage of extraneous information to 
speed up your search. For instance you 
might remember the color of the cover 
of last month's MICRO. You could 
then limit your search to magazines 
whose covers were of that color. You 
might look through your mail for an 
official-looking government envelope; 
or you might look for the word ' 'COM- 
PUTER" in capital letters in the 
want ads. 

Because you are human, you have 
sophisticated pattern-matching 
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abilities with which a computer cannot 
yet compete. A computer, searching a 
list of items, is not able to use such 
cues in most cases. It has to take each 
item in turn to see whether or not it is 
the one being sought. This is always 
true if the list being searched has no 
other structure than that of a list. In 
future articles I will discuss to what ex- 
tent a computer might take advantage 
of "extra structure." For now, 
however, I make no assumptions. The 
computer lists are simply big unordered 
piles — like a collection of twenty 
years' worth of Life magazines well 
shuffled from use. 

Here's how to search: 

1. First we ask, "Are there any more 
things left in the pile for which we are 
searching?" If yes, continue the search; 
i.e., do step 2. If no, stop the search. 

2. Is the next thing in the pile the item 
for which we are looking? If yes, we 
succeeded, so quit. If no, do step 3. 

3. Put aside the item at which we just 
looked and rejected. Continue the 
search from step I . 

The following short names can be 
given to the three steps in the above 
procedure: 1. TEST, 2. COMPARE, 
and 3. LOOP. I shall refer to these "in- 
gredients" in my discussion below. 



Linear Search in Applesoft 

Listing 1 shows a simple Applesoft 
program illustrating linear search. The 
search itself is done in the subroutine 
beginning at line 1000. The rest of the 
program makes sure there is a list to be 
searched and there are items to be 
searched. The subroutine in listing 1 is 
written in a primitive style in order to 
illustrate the components of the linear 
search explicitly: 

TEST: IF J > 100 THEN RETURN 
COMPARE: IF (ST$(J) = P$) THEN 

FO = 1 
LOOP: J = J -!- 1 :GOTO 1010 

listing 2 uses the BASIC FOR state- 
ment as an alternate method. 

Lineal Search in Pascal 

Listing 3 shows another simple pro- 
gram, this time in Apple Pascal. The 
program is similar in spirit to that of 
listing 1, and the list to be searched 
contains the names of the U.S. 
Presidents. 

Study listing 3 and then compare it 
to listing 1. You should be able to see 
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many interesting differences in the pro- 
gramming style of the two languages, 
Applesoft and Apple Pascal. If you are 
just beginning to program in Pascal, 
this suggests one excellent way to learn 
the language; try to rewrite some of 
your BASIC programs using Pascal. Try 
is the key word here as there are some 
programs that rely too heavily on the 
memory layout of the Apple to be 
translated. See how close you can 
come. And concentrate on translating 
the spirit of the program — i.e., what it 
does. Don't try to make a literal line- 
for-line translation or you'll just get 
bogged down and probably give up. 



Sentinels — More Efficient 
Linear Search 

The test for completion of a linear 
search, "Are we out of items to con- 
sider?", is not conceptually part of the 
search itself. It seems like unwanted 
extra baggage. It really is as you soon 
will see. 

Suppose you knew ahead of time 
that what you were searching for 
definitely was one of the items in the 
collection being searched. Or, to put it 
another way, suppose you knew at the 
start that a successful search was 
guaranteed. Then the TEST part of the 
procedure would be superfluous. You 
might think the whole search would be 
superfluous! Leaving that issue aside 
for a moment, let's see if we can think 
of a way to guarantee that all your 
linear searches have happy endings. 

Figure 1 gives the basic idea — an 
extra location in the search collection. 
Why would you want to increase the 
number of items to be searched? To 
guarantee success, of course. You will 
use the extra location to store a copy of 
the item for which you are looking. 
Then if that item turns out not to be in 
the collection piopei, you can still find 
it in the extra location at the end. 
Therefore you won't have to worry 
about TESTing whether or not any 



Collection to be Searched 



Room for Extra Item 



Figure 1: Sentinel Location 
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items are left. At the worst, you will 
find what you are looking for just 
before you run out of items to consider. 

The extra item added to the collec- 
tion is known as a sentinel since it 
stands guard against the possibility 
of failure. 

You now have a slightly different 
problem to solve because there are now 
two possible ways to succeed. 

1. Find the sentinel. 

2. Find the item for which you are 
looking before you get to the sentinel. 

In the first case, even though you 
succeed in one sense, you fail in the 
larger sense. Case 2 could be dubbed a 
real success. After you succeed (which 
you know you will since you have a 
sentinel), you check to see whether or 
not you are at the sentinel location. If 
not, then you reciiy succeed. If so, then 
you were only helped over the finish 
line. Real success awaits in some 
future search. 

Sentinel Searching in Applesoft 
and Pascal 

Listings 4 and 5 show the linear 
search subroutines of listings 1 and 3 
augmented by the use of a sentinel 
location. Notice that in each case the 
array used to hold the collection to be 
searched must be given an extra loca- 
tion. The first step in the search pro- 
cedure is then to store the item being 
searched in the extra location (at the 
end of the regular array) . 

Screen Searching 

Listing 6 presents the linear search 
without a sentinel. It is programmed in 
Applesoft and runs on the screen before 
your very eyes. It is almost entirely 
self-explanatory, but if at any time you 
think it is stuck, just hit RETURN 
and it is likely to continue on its 
merry way. 

EXERCISE: Modify the program of 
listing 6 to use a sentinel location. 

Coming Up 

In the next article in this series, I will 
discuss the mechanism of the Binary 
Search and present an on-screen 
demonstration similar to the Linear 
Search demo of listing 6. 

You may contact Dr. Vile at 

3467 Yellowstone Dr., Ann Arbor, 

MI 48105. 

(Listings begin on page 50} 
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Listing 1 



5 DIM ST$(50),0KC50) 

10 FOR I = 1 TO 50: READ ST$(l) : NEXT I 
15 FOR I = 1 TO 50:0K(I) = 0: NEXT I 
20 C = 



100 
101 
102 
105 
106 
107 



120 

125 
150 

155 
160 
165 
170 
180 
185 
200 
201 
202 
205 
210 
211 
212 
215 
220 
225 
1000 
1001 
1002 



REM ================ 

REM = MAIN PROGRAM = 
REM ================ 

GOSUB 200 

INPUT "? ";P$ 

IF P$ = "BYE" THEN 180 
110 FO = 0: GOSUB 1000 
115 IF FO = 1 THEN 150 

PRINT P$; " IS NOT A STATE" 

PRINT : GOTO 106 

IF OK(J) = IZI THEN OK(J) = 1:C = C + 1: 
PRINT "GOOD!": GOTO 106 

PRINT "YOU ALREADY NAMED THAT ONE!" 

PRINT "YOU NAMED ";C;" STATES WITHOUT REPEATING" 

PRINT "GO AGAIN?" 

INPUT A$: IF A$ = "Y" OR A$ = "YES" THEN 15 

PRINT "YOU GOT ";C;" STATES" 

END 

REM ============^=== 

REM = INSTRUCTIONS = 

REM ================ 

HOME : VTAB 5: PRINT "WELCOME TO THE GAME OF THE STATES" 

PRINT "GUESS AS MANY STATES AS YOU CAN" 

PRINT "WITHOUT REPEATING YOURSELF." 

PRINT "GOOD LUCK..." 

VTAB 23: HTAB 5: PRINT "TO START, PRESS RETURN"; 

GET A$ 

HOME : RETURN 

REM ============================ 

REM = LINEAR SEARCH SUBROUTINE = 

REM =========^================== 



1005 J = 1 

1010 IF J > 50 THEN RETURN 

1015 IF (ST? (J) = P$) THEN FO = 1: RETURN 

1020 J = J + 1 

1025 GOTO 1010 

2000 REM ================== 

2001 REM = LIST OF STATES = 

2002 REM ================== 

2005 DATA MAINE, VERMONT, NEW HAMPSHIRE 

2006 DATA MASSACHUSSETTS , CONNECTICUT, RHODE ISLAND 

2007 DATA NEW YORK, PENNSYLVANIA, DELAWARE 

2008 DATA MARYLAND, VIRGINIA, NORTH CAROLINA 

2009 DATA SOUTH CAROLINA, GEORGIA, FLORIDA 

2010 DATA OHIO, WEST VIRGINIA, KENTUCKY 

2011 DATA TENNESSEE, ALABAMA, MISSISSIPPI 

2012 DATA MICHIGAN, INDIANA, ILLINOIS 

2013 DATA WISCONSIN, LOUISIANA, ARKANSAS 

2014 DATA MISSOURI, IOWA, MINNESOTA 

2015 DATA WASHINGTON, CALIFORNIA, OREGON 

2016 DATA IDAHO, NEVADA, ARIZONA 

2017 DATA NEW MEXICO, UTAH, MONTANA 

2018 DATA WYOMING, COLORADO, TEXAS 

2019 DATA OKLAHOMA, NEBRASKA, NORTH DAKOTA 

2020 DATA SOUTH DAKOTA, ALASKA, HAWAII 

2021 DATA KANSAS, NEW JERSEY 



Listing 3 

PROGRAM USPresidents; 



presnarae = STRING [25]; 

VAR 

presidents: ARRAY[1..40] OF presname; 

prex: presname; 
PROCEDURE initlprexies; 
BEGIN 



presidents [1] 
presidents [2] 
presidents [3] 
presidents [4] 
presidents [5] 
presidents [6] 
presidents [7] 
presidents [8] 
presidents [9] 
presidents [10] 
presidents [11] 
presidents [12] 
presidents [13] 
presidents [l4] 
presidents [15] 
presidents [16] 
presidents [17] 
presidents [18] 
presidents [19] 
presidents [20] 



END { PROCEDURE initlprexies }; 



'George Washington'; 
'John Adams'; 
'Thomas Jefferson'; 
'James Madison'; 
'James Monroe'; 
'John Quincy Adams'; 
'Andrew Jackson'; 
'Martin Van Buren'; 
'William Henry Harrison'; 
•John Tyler'; 
•James Polk'; 
•Zachary Taylor'; 
'Millard Fillmore'; 
'Franklin Pierce'; 
'James Buchanan'; 
'Abraham Lincoln'; 
'Andrew Johnson'; 
'Ulysses S. Grant'; 
'Rutherford B. Hayes'; 
'James Garfield'; 



PROCEDURE lnlt2prexies; 

BEGIN 

presidents [21] 
presidents [22] 
presidents [23] 
presidents [24] 
presidents [25] 
presidents [26] 
presidents [27] 
presidents [28] 
presidents [29] 
presidents [30] 
presidents [31] 
presidents [32] 



'Chester A. Arthur'; 
'Grover Cleveland'; 
'Benjamin Harrison'; 
'Grover Cleveland'; 
'William McKlnley'; 
'Theodore Roosevelt'; 
'William Howard Taft'; 
'Woodrow Wilson'; 
'Warren G. Harding'; 
'Calvin Coolidge'; 
'Herbert Hoover'; 
'Franklin Delano Roosevelt' 



Listing 2 



1000 REM ============================ 

1001 REM = LINEAR SEARCH SUBROUTINE = 

1002 REM ============================ 

1010 FOR J = 1 TO 50 

1015 IF (ST$(J) = P$) THEN FO = 1: RETURN 

1020 NEXT J 

1025 GOTO 1015 

1049 RETURN 



presidents [33] 
presidents [34] 
presidents [35] 
presidents [36] 
presidents [37] 
presidents [38] 
presidents [39] 
presidents [40] 



'Harry S. Truman'; 
'Dwight D. Eisenhower'; 
•John F. Kennedy'; 
'Lyndon B. Johnson'; 
'Richard M. Nixon'; 
'Gerald R. Ford'; 
•Jimmy Carter'; 
'Ronald Reagan'; 



END { PROCEDURE init2prexies }; 

FUNCTION search (VAR s : presname) : BOOLEAN; 
VAR 

1 : INTEGER; 

found: BOOLEAN; 
BEGIN 

found := FALSE; 

1 := 1; 

WHILE (( i <= 40) AND (NOT found)) 

DO 

BEGIN 

IF s = presidents [i] 

THEN 

found := TRUE; 

i := 1 + 1; 
END; 

search := found; 



initlprexies; 
init2prexies; 

WHILE prex <> 'quit' 

DO 

BEGIN 

WRITELN ('Name a President'); 

READLN (prex) ; 

IF search (prex) 

THEN 

BEGIN 

WRITELN ('Good! You got one!'); 
WRITELN ('Try again?'); 
READLN (prex) ; 
END; 
END { WHILE prex <> 'quit' }; 

END { PROGRAM usPresidents }. (Continued on page 52) 
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FLOPPY DISKS SALE 
*$1.19ea. 

Economy Model or Cadillac Quality 

We have the lowest pricesi 

ECONOMY QISKS 

Good quality 5V4" single sided single density with liub rings. 

Bulk Pac 100 Qty. $1.19 ea. Total Price $119.00 

lOQty. 1.39 ea. Total Price 13.90 

CADILLAC QUALITY 

• Each disk certified • Free replacement lifetime warranty • Automatic dust remover 

For those who want cadillac quality we have the Loran Floppy Disk. Used by professionals because they can rely 
on Loran Disks to store innportant data and programs without fear of loss! Each Loran disk is 100% certified (an 
exclusive process) plus each disk carries art exclusive FREE REPLACEMENT LIFETIME WARRANTY. With Loran 
disks you can have the peace of mind without the frustration of program loss after hours spent in program 
development. 

100% CERTIFICATION TEST 

Some floppy disk manufacturers only sample test on a batch basis the disks they sell, and then claim they are 
certified. Each Loran disk is individually checked so you will never experience data or program loss during your 
lifetime! 

FREE REPLACEMENT LIFETIME WARRANTY 

We are so sure of Loran Disks that we give you a free replacement warranty against failure to perform due to faul- 
ty materials or workmanship for as long as you own your Loran disk. 

AUTOMATIC DUST REMOVER 

Just like a record needle, disk drive heads must travel hundreds of miles over disk surfaces. Unlike other floppy 
disks the Loran smooth surface finish saves disk drive head wear during the life of the disk. (A rough surface will 
grind your disk drive head like sandpaper). The lint free automatic CLEANING LINER makes sure the disk-killers 
(dust & dirt) are being constantly cleaned while the disk is being operated. PLUS the Loran Disk has the highest 
probability rate of any other disk In the Industry for storing and retaining data without loss for the life of the disk. 

Loran is deflniMy the Cadillac disk in the world 

Just to prove it even further, we are offering these super JjQ]fl/;,INTRODUGTORY PRICES 
List $4-99 ea. INTRODUCTORY SALE PRICE $2.99 ea, (Box of 10 only) Total price $29.90 

$3.33 ea. (3 quantity) Total price $9.99 

All disks come with hub rings and sleeves In an attractive package. 

RANKING FOR BEST PERFORMANCE 



MEASUREMENTS 


liiiiiiiB^^^^^^^^ 


Verbatim 


Ultra 


3M 


Amplitude 


mSm^^MME^: 


2 


3 


3 


Missing bit ratio 
(reliability) 


WIlMMli 


3 


3 


2 


Extra bit rate 


immXmimi 


2 


1 


3 


Modulation 


vmrnmsami 


3 


2 


2 


Running torque 


PB^^^IK;SIK^ 


1 


1 


2 



(Numbers that are the same indicate a tie for that position) 
LORAN bBBts the competition cold!! 



t Add $10 00 for shipping, handling and Insurance. Illlnola raaldants I 
I plaaM add 6% tax. Add $20.00 for CANADA. PUERTO RICO, HAWAII | 
I ordera. WE DO NOT EXPORT TO OTHER COUNTRIES. | 

I Enclose Cashiers Check, Money Order or Personal Check. Allow 14 | 
I days for delivery, 2 to 7 days for phone orders. i day express mail! j 
I Canada orders must be in U.S. dollars. Visa • MasterCard - COD. | 



BOX 550. BARRINGTON. ILLINOIS 60010 
Phon« 312/382-5244 lo order 
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Listing 4 looo rem ======-=-=-===========-=== 


305 X = PEEK (78) + 256 * PEEK (79) 




1001 REM = LINEAR SEARCH SUBROUTINE = 


310 RESTORE : FOR I = 1 TO 30: READ IT$(I): NEXT I 




1002 REM === =-== =x:=======^=== 


315 FOR I = 1 TO 30:PI(I) = 0: NEXT I 




1005 ST$(51) = P$ 


320 FOR J = 1 TO 16 




1010 J = 1 


322 I = INT ( RND (X) '* 30 + 1) 




1015 IF (ST${J) = P$) THEN 10^0 


324 IF PI (I) THEN 322 




1020 J = J + 1 


326 SE$(J) = IT$(I):PI(I) = 1 




1025 GOTO 1015 


328 NEXT J 




1030 IF J < 51 THEN FO = 1 


330 I = INT ( RND (X) * 30 + 1) 




1049 RETURN 


334 S$ = IT$(I) 






349 RETURN 


Listing 5 function search (VAR s : presnarae) : BOOLEAN j 
VAR 


400 REM =========== 

401 REM = DISPUY = 

402 REM =========== 


i: INTEGER; 


404 HOME 


found: BOOLEAN; 


405 FOR K = 1 TO 16 


BEGIN 


410 VTAB 3 + K: HTAB 1 


found := FALSE) 


412 IF K < 10 THEN PRINT " "; 


presidents [Al] := s; 


414 PRINT K;" ";SE$(K) 


i := 1; 


420 NEXT K 




450 VTAB 2: HTAB 5 


WHILE (so presidents [i]) 


452 CALL - 868 


DO 


455 INVERSE : PRINT "LOOKING FOR ===>"; 


BEGIN 


460 FLASH : PRINT " ";S$;" " 


i := i + 1; 


465 NORMAL : GOSUB 600 


END; 


470 VTAB 2: HTAB 21: PRINT " ";S$" " 


search := (i <> 41); 


499 RETURN 


500 REM =- =-== 


END; 


501 REM = TRY A MATCH AND = 






502 REM = RETURN RESULT. = 

503 REM =================== 

505 VTAB 24: HTAB 1: CALL - 868 




Listing 6 




508 VTAB 3 + L: HTAB 21: PRINT " = ";S$;"?"; 




5 DIM IT$(30),SE$(16),PI(30) 


510 VTAB 22: HTAB 5 




50 DV = 75:TRY = 




512 CALL - 868: GOSUB 850 

513 SPEED= 150 




100 REM ================ 




101 REM = MAIN PROGRAM = 


514 PRINT "IS IT ";SE$(L);" ?": SPEED= 255 




102 REM ================ 


515 FOR DE = 1 TO 1000 - 100 * L - 100 * TRY: 




105 GOSUB 200: REM INSTRUCTIONS 


NEXT DE: GOSUB 850 




110 GOSUB 300: REM SETUP 


520 IF SE$(L) <> S$ THEN RETURN 




115 GOSUB 400: REM DISPLAY 


525 FO = 1 




117 IF A$ <> CHR$ (13) THEN TRY = TRY + 1: GOTO 110 


549 RETURN 




120 FOR L = 1 TO 16 


600 REM ========= 




123 GOSUB 700: REM REMOVE OLD TRY 


601 REM = PAUSE = 




125 FO = 0: GOSUB 500: REM TRY 


602 REM ========= 




130 IF FO = 1 THEN 150 


605 VTAB 24: HTAB 1 




135 VTAB 22: HTAB 30: FLASH : PRINT "NO";: NORMAL 


610 CALL - 868 




138 FOR DE = 1 TO 1000 - 75 * L - 100 * TRY: 


620 SPEED= 100 




NEXT DE: GOSUB 800 


640 PRINT " "; 




140 NEXT L 


645 PRINT " PRESS RETURN TO CONTINUE"; 




141 GOSUB 700: GOSUB 800 


650 SPEED= 255 




142 VTAB 24: HTAB 1: CALL - 868 


655 GET A$ 




143 VTAB 22: CALL - 868: INVERSE 


699 RETURN 




l44 HTAB 5: PRINT S$;" IS NOT ON THE LIST";: 


rjr\r\ mPTur _ 




NORMAL : GOSUB 900 REM BUZZ 


700 REM ========= = 

701 REM = ERASE OLD ATTEMPT = 




145 GOSUB 800: GOSUB 800: GOTO 165 


702 REM = =— ^-==-= 




150 VTAB 22: HTAB 30 


705 IF L > 1 THEN VTAB 2 + L: HTAB 21: CALL - 868 




155 CALL - 868: FIASH : PRINT "YES";: NORMAL 


749 RETURN 




156 GOSUB 800: GOSUB 800 


800 REM =—=—=-= 




160 VTAB 24: HTAB 1: CALL - 868 


801 REM = DELAY LOOP = ■ 




161 VTAB 22: CALL - 868: INVERSE 


rtrto DT?M -m. 




802 KllM ======= = 




162 HTAB 5: PRINT S$;" WAS FOUND AT ";L; 


805 FOR DE = 1 TO 500: NEXT DE 




163 NORMAL : GOSUB 800: GOSUB 800 


809 RETURN 




165 GOSUB 600 


850 REM ================ 




170 TRY = TRY + 1 


851 REM = FASTER DELAY = 




175 IF A$ = CHR$ (13) THEN 110 


852 REM ================ 




199 END 




860 FOR DE = 1 TO 200: NEXT DE 
899 RETURN 




200 REM ================ 




201 REM = INSTRUCTIONS = 


900 REM ======================== 




202 REM ================ 


901 REM = SOUND FAILURE BUZZER = 




205 HOME : SPEED= 125 


902 REM ======================== 




210 PRINT " LINEAR SEARCH DEMO ": PRINT 


910 XX = PEEK ( - 16336) + PEEK ( ~ 16336) + 




215 PRINT "THIS PROGRAM WILL DEMONSTRATE THE" 


PEEK ( - 16336) + PEEK ( - 16336) 




220 PRINT "TECHNIQUE OF LINEAR SEARCH WITHOUT" 


915 FOR I = 1 TO 2: NEXT I 




225 PRINT "A SENTINEL LOCATION. A LIST OF" 


920 IF J > 25 THEN RETURN 




230 PRINT "STRINGS WILL BE GENERATED ON THE " 


925 J = J + 1: GOTO 910 




235 PRINT "LEFT SIDE OF THE SCREEN AND A STRING" 


9000 DATA APPLE II, PET, COMMODORE 64 




240 PRINT "TO BE SEARCHED FOR WILL BE PRINTED" 


9001 DATA APPLE III, VIC 20, TRS-80 




245 PRINT "AT THE TOP OF THE SCREEN. THE PROGRAM" 


9002 DATA COLOR COMPUTER, RADIO SHACK 16, OSBORNE I 




250 PRINT "WILL GO DOWN THE LIST 'LOOKING' FOR" 


9003 DATA ALTAIR 8800, CROMEMCO Z2, ATARI 400 




255 PRINT "A MATCH. AFTER EACH STEP, IT WILL " 


9004 DATA ATARI 800, SUPER PET, IBM PC 




260 PRINT "PAUSE AND POSSIBLY DISPUY COMMENTS" 


9005 DATA SINCLAIR ZX81, INTERACT, OSI CHALLENGER 




265 PRINT "REGARDING ITS PROGRESS. TO MAKE IT" 


9006 DATA EXIDY SORCERER, TI COMPUTER, DEC RAINBOW 




270 PRINT "CONTINUE, SIMPLY PRESS THE RETURN KEY." 


9007 DATA ZENITH ZIOO, SOL COMPUTER, IMSAI 8080 




280 GOSUB 600 


9008 DATA DIGITAL GROUP, ALTAIR 680, ECD MICRO MIND 




299 SPEED= 255: RETURN 

inn OTTM 


9009 DATA HEATH H89, COMPUCOLOR II, HEATH Hll 




JUU KhtPl = 


9010 DATA EPSON HX-20, PENTEL PENPUTER, VICTOR 9000 




301 REM = INITIALIZE = 






302 REM =-== 


AMOK) 
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P.O. Box 4364 
Flint, Michigan 48504 
(313) 233-5731 
(313) 233-3125 



ZANIM 

SYSTEMS 




HOME CONTROL AT YOUR FINGERTIPS 



The ZCM-1 is the Master Control module that provides the Interface between your computer and our 
line of Zanim Application Modules. Up to 15 Application Modules can be piggy-backed to the ZCM-1 
Master Control module. The ZCM-1 is compatable with any standard RS-232 (serial) interface. A special 
Master Control module, the ZCM-1V is available for the VIC-20 and Commodore-64 computers. 

*The ZCM-1V is available for VlC-20 and C-64 users. 



ZAM-1 is the home control interface module that provides a fully versatile computer controlled en- 
vironment. ZAM-1 can control up to 256 different lamps and appliances in your home or business pro- 
viding you with an effective and easy to implement energy management and electric control system. 
No special modifications are necessary to your building as all control signals are sent over your ex- 
isting wiring. ZAM-1 can be programmed in BASIC or optional home control software is available. 
ZAM-1 requires one ZCM-1 Master Control module. 

*The ZCM-1/ZCM-1V Master Control module is required to use the ZAM-1 Home Control module. 



The ZAM-2 allows your computer to continuously monitor up to 15 different doors or windows around 
your home or business. ZAM-2 is a basic building block in a complete computer controlled home securi- 
ty system. With our ZAM-1 Home Control module, you can have a fully integrated security and en- 
vironment control system. Upon an intrusion, your computer can take the action most appropriate, 
whether that is to ring an alarm bell, flash all the lights around your home, or dial the police. 

*The ZCM-1/ZCM-1V Master Control module is required to use the ZAM-2 Security module. 



The ZAM-3 is a complete telephone answering and dialing system. It is capable of taking the phone 
off-hook and dialing a number under computer control or of answering the phone when it rings. With 
the ZAM-1 Home Control module and the ZAM-2 Security module, the ZAM-3 Phone Dialer module 
can be integrated into a complete home or business security/monitoring system. Applications include 
security, auto phone dialing, and computer-answering systems. 

*Pu!se dialing option is available as ZAM-3P. 

*The ZCM-1/ZCM-1 V Master Control module is required to use the ZAM-3/ZAM-3P Phone Dialer module. 





SERIAL OR PARALLEL 
(CENTRONICS) PORT SWITCHER 



[ 




DOES YOUR COMPUTER 
^LOOK LIKE THIS? 

A PORT SWITCHER NOW 
AVAILABLE FOR YOUR 
COMPUTER (ZSW1) 



Device A- 
Device B- 



APPLE 11 IS TRADEMARK OF APPLE COMPUTERS, INC. 

CP/M IS REGISTERED TRADEMARK OF DIGITAL RESEARCH, INC. 

No. 65 " October 1983 




P.O. BOX 4364 

Flint, Michigan 48504 

(313)233-5731 

(313)233-3125 



n Please send me more information or catalogue! 



Name_ 



Company . 

Address 

City 



. State_ 



-Zip- 



What Make/Model Computer do you own? 



TRS - 80 tS REGISTERED TRADEMARK OF TANDY CORP. 
VIC - 20 AND COMMODORE ■ 64 ARE REGISTERED TRADEMARKS OF COMMODORE. INC. 
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Faster Math Operations 
in IS/licrosoft BASIC 



by Peter Hiscocks 



Array operations are slow in 
Microsoft BASIC because they 
have to be expHcitly programmed. 
For example, to add two 32 element 
arrays, we require 

FOR I = TO 32 
RL(1) = RL(I) + DV(I) 
NEXT I 

which takes about 0.4 seconds. 

For each trip around the loop, 
BASIC has to set a value for I and then 
find the variables RL(I) and DV(I|. We 
know, however, that the variables 
follow in sequence, and this can be 
used to speed things up considerably. 

The variables of a floating point 
array are stored in five-byte lumps, one 
after another in memory. To operate on 
two arrays, we set up pointers to the 
zeroth elements, perform the arith- 
metic, then increment the pointers by 
five bytes, continuing until the two ar- 
rays are done. Using the ROM routines, 
the routine given above may be made to 
execute in 0.066 seconds. As a rough 
rule of thumb, expect a factor of 6 to 9 
increase in speed. 

To use this technique we have to be 
able to find the arrays in memory and 
use the BASIC floating point arithme- 
tic routines. 

The method shown here is accom- 
panied by ROM locations for Com- 
modore PET BASIC version 4, but the 
ideas should be transferrable to other 
versions of Microsoft BASIC. 
54 



Finding the arrays 

As shown in figure 1, arrays grow 
upward in memory, as they are dimen- 
sioned, above simple variables. The 
creation of a variable or editing of 
BASIC text will change the shaded 
areas, so we cannot count on the arrays 
being at any fixed location. However, 
the Microsoft routine that finds a 
variable can be used to do this. Handed 
the zeroth element as a variable — 
DV(0), for example — the routine will 



IVIADD 

requires: 

PET/CBM or Commodore 64 



give us back the memory location of 
the start of the array. 

Array Storage Format 

An array consists of a header, which 
contains descriptive information about 
the array, and the body, which contains 
the array elements. A typical floatng 
point array header is shown in figure 2. 
Each block is one byte. 

In a multi-dimensional array, the 
last dimension changes least frequently. 
For example, DV(32,5] would be stored 
as DV(0,0) to DV(32,0) followed by 
DV(0,1| to DV(32,1), and so forth 
toDV(32,51. 

MICRO 



Arithmetic Operations 

The arithmetic operations could be 
programmed in machine language. 
This would be worthwhile for opera- 
tions on integer arrays since Microsoft 
BASIC performs integer arithmetic by 
converting the number to a floating 
point, using the floating point routine, 
and converting back to integer. 

For floating point math, the easy 
way out is to use the Microsoft ROM 
routines (table 1). These have been well 
described elsewhere, so this will be 
a summary. 

Mathematical operations take place 
in one of two, six-byte "accumulators" 
on page zero. The FAC is located at $5E 
to $63, and the ARC is located at $66 to 



Figure 1: Array Storage in Ram 
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T 

STRINGS 

..... t 




t 

ARRAYS 

i 


$0400 
$0000 


SIMPLE 
VARtABLES 

BASIC 
TEXT 

\ 
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BASIC 
2 


BASIC 
4 


64 


CDF8 


BEF5 


AEFD 


CC9F 


BD98 


AD9E 


DAAE 
DAAE 


CCD8 
CCD8 


BBA2 
BBA2 



D998 



DAEO 



CBC2 



CDOA 



Table t; Locations and Routines used in iMADD and others of interest. 



Checl^ for a comma: CHKCOIVI 
Evaluate an expression: FRMEVL 

Move variable to FAG: MOVFM 
Variable address low byte to AC 
Variable address high byte to Y 

Move variable to ARG: GONUPK 
Variable address low byte to AC 
Variable address high byte to Y 

Store FAC in memory: MOVMF 
Variable address low byte to X 
Variable address high byte to Y 

Transfer FAC to ARG 
Transfer ARG to FAC 
Convert FAC to 16 bit integer: AYINT 
Result in $61 and $62 

Add 
FAC = ARG + FAC 

Subtract 
FAC = ARG 

Multiply 
FAC = ARG * FAC 

Divide 
FAC = ARG / FAC 



BA8C 



BBD4 



DB18 


CD42 


BCOC 


DB08 


CD32 


BBFC 


D09A 


C2EA 


B1BF 



FAC 



D77B 



D736 



D93C 



C9A5 



C989 



CB66 



B86F 



B853 



BA2B 



FACHI 

FACLO 

VARPNT 

OVRFLO 

UNDFLO 



DA20 


CC4A 


BB12 


61 


61 


64 


62 


62 


65 


44 


44 


47 


65 


65 


68 


6D 


6D 


70 



Listing 1 



; % madd 

addition program 



:* 



mat r i >: 

by peter hiscocks 

adds dv(i) to rl (i ) with result in r 
also stores integer of rl(i) and 
stores in output table. outblB 

ji # calling syntax- sys gtrl , r 1 (0> , dv <0) 

;* ma;<imufn 255 elements 

; * 

;* assembled -for commodore 64 

;* see table for basic 2,4, h vie 

; * 



6006 
6006 



6006 
6006 

6<:m:»6 

6006 
6006 

6006 
6006 
6006 
6006 
60(1)6 

6000 

6O0O 



6001 
60':»2 



6003 
6004 



chkcom = *ae-fd 
•frmevl = »ad9B 
; in this case, -find 
; pointer address to 
; start o-f matri:<, in 
; varpnt V, varpnt+1 



mov-Fm 


= 


*bba2 


conupk 
-fadd 


= 


i»ba8c 
*bS6-f 


movm-f 


= 


$bbd4 


ayint 


= 


«blb+ 


; resu 


It in 


-faclo 


•fachi 


= 


$64 


faclo 


= 


»65 


varpnt 
ovrf lo 
und-f lo 


- 


*47 
«63 
*70 


; 


*= 


46000 



check -for commai, else syntax error 
evaluate expression 



#a 



memory trl ) to fac: 
memory (dv) to fac #1J 
sum Df -fac !< arg to ^ 
fac to memory <rl) 
fac to integer, 



; mantissa Isb of fac 

; pointer to variable 

; overflow error flag 

; underflow err flaa 



outble = «+200 ; integer output table 
; 64 locations 



rllo *= #+l 
rlhi *= *+l 



dvla 
dvhi 



*+l 
* + l 



; loop address pointers 



; number of elements in each array 



(continued) 
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$6A. ROM routines are available to 
move a variable from its storage loca- 
tion into accumulator (in the process 
"unpacking" changes the format from 
five to six bytes) . They are available to 
perform the arithmetic operation, and 
to repack the variable back into its 
storage location. 

The example of listing 1^ MADD, is 
a Matrix ADD for 32 elements. It stores 
each result back in memory and also 
converts it to fixed point format, 
sending that to an output table OUT- 
BLE for use by a piece of hardware. 
It's a pretty specialized piece of soft- 
ware, but it shows how all this might 
go together. 

The routine is called from BASIC 
with an instruction like 

SYS XXX,RL(0),DV(0) 

where XXX is the start of the machine- 
language routine in memory. Notice 
that the same routine XXX may be 
called with different parameters, or dif- 
ferent routines may be created to per- 
form different array operations. 

When the SYS XXX instruction is 
executed by the BASIC interpreter, the 
BASIC line scanner is left pointing at 
the first comma. 

The routine CHKCOM looks for 
this and prints "SYNTAX ERROR" if 
it's not present. The scanner is now 
pointing at RL|0|. Calling the routine 
FRMEVL (evaluate an expression) will 
put the location of RL(0) in the page 
zero locations VARPNT. (It also leaves 
the value of RL(0) in the FAC, but 
that's not used here). We can snag the 
starting location of the array RL(I) by 
reading VARPNT. The routines 
CHKCOM and VARPNT may be used 
again to find the starting location 
of DV|I). 

Loop control for the number of 
elements in the arrays is built into 
MADD as a "magic number," not a 
good practice. For a general purpose 
routine, you might tack the number of 
elements onto the calling SYS instruc- 
tion as a third parameter, and use 
CHKCOM and FRMEVL to pick it up. 
The result would be left in the FAC in 
floating point, where it could be con- 
verted to integer format by call- 
ing AYINT. 

The error flags OVRFLO and UND- 
FLO, associated with the ROM math 
routines, are then cleared. The pointer 
into the integer output table OUTBLE 
is reset, and we're ready for the main 
addition loop. 

(Continued on next page) 
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In the addition loop, you'll notice 
that various registers have to be set up 
before calling the routines. For exam- 
ple, the accumulator must be set up 
with low byte, Y index register with 
the high byte of a variable's ad- 
dress, before calling MOVFM. In the 
case of MOVMF, it's the X and Y 
index registers. 

The array pointers are then in- 
cremented by 5, the OUTBLE pointer is 
incremented by 2 (a Microsoft integer 
is 2, 8-bit bytes), the loop counter is 
decremented, and we do it again until 
32 elements have been processed. 

A BASIC test routine for MADD is 
shown in listing 2. Two 32 element 
arrays are set up, MADD is called, and 
the result is printed. 

Incidentally, the assembly shown 
in listing 1 was done with the PAL 
assembler for the PET, written by Brad 
Templeton, the author of POWER. I 
recommend it highly. 

Multi-Dimensional Arrays 

The variables in the calling instruc- 
tion need not be one-dimensional arrays. 
For example, suppose RL is 32x1 and 
DV is 32 X 5. The calling instmction 

SYS XXX,RL(0),DV(0,3) 

would have the effect of adding the 32 
elements in the third (of five) columns 
of DV to the 32 elements in RL, leaving 
the result in RL. Notice that 

SYS XXX,RL(0),DV(3,0) 

has a totally different and incorrect 
effect, because of the order of storage of 
the elements of DV. 



Listing 1 (continued) 



pointer into output table 



get pointer 

and set up 



s from sys statement 
Id and ;<;<hi 



6006 20 -fd ae gtrl 
6009 20 9e ad 
600c a5 47 
600b Bd 00 60 
6011 a5 48 
6013 Bd 01 60 

6016 20 -fd ae gtdv 
6019 20 9e ad 
601c a5 47 
601e Bd 02 60 
6021 aS 48 
6023 8d 03 60 

6026 a9 20 
602a 8d 04 60 

602b a9 OO 
&02d 85 68 
602f 85 70 

) 
6031 a9 OO 
6033 S 



60 



6036 ad OO 60 ad loop 

6039 ac Ol 60 

603c 20 a2 bb 

603-f ad 02 60 

6042 ac 03 60 

6045 20 Be ba 

6048 20 6-f b8 

604b ae OO 60 
604b ac 01 60 
6051 20 d4 bb 

6054 20 bf bl 

6057 ac 05 60 
605a a5 65 
605c 99 c8 60 
605f ee 05 60 
6062 ee 05 60 

6065 18 incptr 

6066 ad OO 60 

6069 69 05 
606b Bd OO 60 
606e a9 00 

6070 6d Ol 60 
6073 8d 01 60 



Ida 
sta 
Ida 
sta 

jsr 
jsr 
Ida 
sta 
Ida 
sta 

Ida 
sta 

Ida 
sta 
sta 

Ida 

sta 

Ida 
Idy 
jsr 
Ida 
Idy 



ld>: 
Idy 



chkcom ; 

■Frinevl 

varpnt 

rllo 

varpnt+1 

rlhi 

chkcom I 
f rmevl 
varpnt 
dvl o 

varpnt+1 
dvhi 

#32 
elemen 

#%0 

avr-FlD 
und-f Id 



Qutptr 

rlLo 

rlhi 

mov-f m 

dvlD 

dvhi 

conupk 



rllo 
rlhi 
movm-f 



jsr ayint 

Idy outptr 

Ida faclo 

sta outble,y 

inc outptr ; 

inc outptr ; 



obtain address o-f rl (0) 



obtain address of dv(0) 



get the number of 
elements in the array 

clear error flags 

set up output pointer 
to start of output table 

main addition of rl<i> and dv(i) 

rl (i) to -fac 

dv (i > to arg 
fac = fac + arg 

fac to rl (i) 
fac to integer 



; integer to output table 
increment output table pointer 
twice 



clc 




; add 5 to loop pointers 


Ida 


rllo 


; to move to next element 


adc 


#5 


I in the srray rl 


sta 


rllo 




Ida 


#0 




adc 


rlhi 




sta 


rlhi 





60 



6076 18 

6077 ad 02 
607a 69 05 
607c Bd 02 60 
607f a9 00 
6081 6d 03 60 
6084 Sd 03 60 

6087 ce 04 60 
60ea dO aa 



clc 

Ida dvlo 

adc #5 

sta dvlo 

Ida #0 

adc dvhi 

sta dvhi 



bne ad loop 
rts 



test for complete 



Figure 2: One Dimensional Array Header 



NAME IN ASCII 



LENGTH OF ARRAY 

(INCLUDING 

HEADER) 



NUMBER 

OF 

DIMENSIONS 



Listing 2 

10 REM MADDTEST ROUTINE 

20 DIM RL-:32) ,DV<32) 

30 FDR J=0 TO 31 

40 RL(J)==J:DV(a)=1.33 

50 NEXT J 

<S0 BYB 24582 ,RL<0),DV(0> 

70 FOR a==0 TO 31 

80 PRINT RL(J) 

90 NEXT J 

100 STOP 



Peter Hiscocks is an instructor at 
Ryerson Polytechnical Institute, where 
he teaches courses in electronic and 
theatre technology. He builds computer 
interfaces on a freelance basis, and has 
just completed a computer- controlled 
sound system for the Royal Ontario 
Museum. You may contact him at 
Ryerson Polytechnical Institute, 
Electrical Department, 50 Gould St., 
Toronto, Canada M5B1E8. 
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PUT PRICES IN CHECK 



CARTRIDGE RIBBONS FOR 



APPLE PRINTERS 

NEC 8023A 

C. ITOH PROWRITER 



INNOVATIVE 
CONCEPTS 

FLIPNTILE 

DISC STORAGE BOX 
HOLDS UP TO 60 DISKETTES 

5V4" 8" 



DUAL SPOOL RIBBONS FOR 

OKI DATA 
PRINTERS 

80, 82, 83 " °°^ 
92,93 =2." 529.! 



ANTI-STATIC 
SPRAY 

FULL QUART SIZE 
WITH DISPENSER 



CARTRIDGE RIBBONS FOR 

EPSON 
IX-80 MX-1001 



Mas."! 



RIBBONS FOR 

IDS PRINTERS 

EA. DOZ. 

440 ^2/^ ^29.^2 

PAPER TIGER ^6.^^ ^75.°« 
MICROPRISM ^7.^^ ^86.^® I 

PRISM 10.^M18.2 , 



MEMOREX 
DISKETTES 

5' SINGLE SIDE -DUAL DENSITY 



»24. 



CARTRIDGE RIBBONS FOR 



COMREX 
DAISYWRITER 2000 



*6 



95 



QT. 



MAXELL 
DISKETTES 

S'A" SINGLE SIDE 
DUAL DENSITY 



«29. 



1 GALLON REFILL'19.^ 



DISKETTE 

STORAGE 

BOXES 

5%" ^ BLUE OR BEIGE 

$0 49 

^MH EA. 



COLOR- 
CODER 

LIBRARY CASE SET 

CONTAINS 5 BRIGHT COLORS 

5V4" 8" 

519.95 $23.95 



LABEL 
SPECIAL 

$0 99 

^m /k 

(5K MIN) 

1 ACROSS 3 X 15/16 CONTINUOUS LABELS 




TOLL FREE 800-343-7706 
IN MASS 617-963-7694 

PHONES OPEN 9AM-7PM EASTERN TIME 

No. 65 -October 1983 



MOST RIBBONS AVAILABLE IN COLORS TOO! 

CALL OR WRITE FOR OUR SUPPLIES CATALOGUE 

ON ORDERS UNDER ^^A.^ PLEASE ADD ^3.^ FOR SHIPPING 

MINIMUM RIBBON ORDER ^SO.^' OR 1 DOZEN 

- Check-Male — 

51 DIAUTO DR W*W P O BOX 103 




RANDOLPH, MA 02368 
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MASS RESIDENTS 
ADD 5% SALES TAX 
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The Commodore SuperPET con- 
tains 96K of RAM — three times 
the memory of its plain sister, 
the CBM 8032. However, the extra 64K 
of RAM is "stacked" into 16 4K 
"banks" all addressed at $9000-$9FFF. 
Only one of these banks is accessible to 
the processor at any moment. The ac- 
tive bank is selected by setting the 
bank-select switch, a latch at $EFFC. 
For example, to activate bank seven, 
you would execute the equivalent of 
"POKE 61436,7". To use this memory 
with programs that won't fit within a 
single bank, you obviously need a 
method to jump from one bank to 
routines in other banks and back again 
— a "bank-switched JSR". Ideally, this 
bank-switched JSR would pass all pro- 
cessor registers between the called and 
calling routines just as does an ordinary 
JSR. Furthermore, it should place no 
restriction on the location of either 
routine within its bank. I have im- 
plemented such a bank-switched JSR 
using the 6502 "BRK" instruction 
together with a set of "jump" tables. 
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My bank-switched JSR sacrifices a 
small amount of memory, usually less 
than about one page per bank, in return 
for making inter-bank subroutine calls 
as easy as calls within a bank. To use 
this method, subroutine calls to other 
banks are assembled so they point to an 
entry in a jump table somewhere in the 
bank. The table consists of 8-byte en- 
tries, each of the following form: 

EXTSUB BRK 
NN 

JSRXXXX 
BRK 
$FF 
RTS 

where NN is the number of the bank 
containing the called routine and 
XXXX represents two arbitrary bytes. 
(For convenience in assembly, I usually 
point XXXX to EXTSUB — see listing 
2.) Thus, at assembly time you need 
only the bank number of the called 
routine, not its actual address; you may 
assemble each bank's code in- 

MICRO 



dependently. All banks' corresponding 
jump table entries must be at the same 
addresses, but you may place the tables 
anywhere in the bank — and there may 
be more than one table per bank. In 
operation, the system BRK vector is 
modified to point to the bank- 
managing routine shown in listing 1. 
This "bank manager" could be put in 
bank-switched memory, but it is more 
economical to put it in normal memory 
since you would need to put identical 
copies in all potentially active banks. 
Whenever EXTSUB in this example is 
called, the bank manager saves the cur- 
rent bank number on the machine 
stack and then changes the active bank 
number to NN. Bank NN contains the 
same jump table except that XXXX 
must point to the actual location of the 
called routine. Therefore, when the 
bank manager restores all the processor 
registers and returns control to the JSR 
following the byte "NN", the effect is 
(almost) the same as if a direct JSR were 
executing. (The difference is that three 
more bytes of stack space have been 
No. 65 - October 1983 
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This article shows a method for using the SuperPET's banlc-switched memory 

with 6502 machine-language programs. Although written for the SuperPET, 

the technique may be used on any 6502 machine having a banked memory. 



used.) Obviously, the only data we may 
pass to the called routine is in the pro- 
cessor registers — unless we first move 
the data to non-bank-switched RAM. 
When the called routine executes an 
RTS, the second BRK is executed and 
the "$FF" byte signals the bank 
manager that we wish to restore the 
previously active bank. The old bank 
number is pulled from the stacks then 
that bank is activated, and control is 
passed to the final RTS in the jump 
table entry with all processor register 
contents restored to their values at the 
time of the called routine's RTS. 

Now that I've described what the 
bank manager does, let's look at listing 
1 to see how it does it. First, it pushes 
on the stack (INDEXl), the contents of 
a pair of zero-page locations to be used 
temporarily. Next it fetches the pro- 
gram counter (PC) bytes from the stack 
where they were pushed during execu- 
tion of the BRK. This is done using 
x-register indexed loads that take ad- 
vantage of the fact that the stack 
pointer has already been loaded into the 
No. 65 -October 1983 



x-register by the SuperPET's interrupt- 
handling ROM routine before calling 
the bank manager. The PC is 
decremented by one and stored as (IN- 
DEXl). (INDEXl) now points to the 
NN byte of the jump table entry. NN is 
fetched and the original (INDEXl) is 
restored. Then NN is tested (TYA) to 
determine whether a jump (NN>=0) 
or return- jump (NN<0) is being re- 
quested. If it's a return, the branch to 
UNSWT is taken. Otherwise the top 
six stack items are lifted to make room 
for the current bank number below 
them. Then the new bank number is 
switched on and control is passed to 
IRQDON, the operating system routine 
that restores the processor registers 
from the stack and executes an RTI. At 
UNSWT the return-from-bank RTS is 
accomplished by retrieving the old 
bank number from under the top six 
stack items, putting it on top of the 
stack and moving the top items back 
down to undo the action of the jump- 
to-bank stack manipulation. Finally, 
IRQDON is called to resume normal 
MICRO 



program execution. Probably the most 
difficult part of the bank manager' s ac- 
tion to visualize is its stack manipula- 
tion. The stack diagram shown in 
listing 1 should help. 

Using this method of bank- 
switched JSR is fairly straightforward at 
the assember level, especially with an 
assembler that supports conditional 
assembly. An example of a source file 
containing code for bank-switched 
JSR's is shown in listing 2. This listing 
shows the source code describing the 
jump table in both the called and call- 
ing banks. The value of the label 
LCRBNK determines which bank's ob- 
ject code is assembled. Notice that 
routines may be called by the same 
name whether in-bank or out-of-bank, 
thanks to the conditional assembly 
feature. 

Terry Peterson is engaged in photovoltaic 
cell research at Chevron Research 
Company. He may be contacted at 8628 
Edgehill Ct., El Cerrito, CA 94530. 

(Continued on next page) 
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Listing 1 

00001 


0000 




; 6502 Assembly language 




00002 


0000 




code 


to manage bank switching on the SuperPET 




00003 


0000 












00004 


0000 




This 


code is entered 


via a BRK n. If 'n' is positive it 




00005 


0000 




is assumed to be the 


bank number to be made active. If 




00006 


0000 




'n' is negative it flags a return to the calling program's 




00007 


0000 




bank 


number. 






00008 


0000 












00009 


0000 




as of 11/28/82 






00010 
00011 
00012 


0000 
0000 
0000 














Stack use: BRK 


{+) BRK (-) 




00013 


0000 






TO-BANK call FROK-BANK call 




00014 


0000 


; 




At Entry - 


-> At Exit At Entry -> At Exit 




00015 


0000 




Addrs,X Contents 


Contents Contents Contents 




00016 


0000 




OOFF 


XX 


new bank<~SP xx xx 




00017 


0000 




0100 


XX <--SP 


YR XX <~SP old bank 




00018 


0000 




0101 


YR 


XR YR YR <— SP 




00019 


0000 




0102 


XR 


ACC XR YR 




00020 


0000 




0103 


ACC 


SR ACC XR 




00021 


0000 




0104 


SR 


PCL SR ACC 




00022 


0000 




0105 


PCL 


PCH PCL SR 




00023 


0000 




0106 


PCH 


old bank PCH PCL 




00024 


0000 




0107 




old bank PCH 




00025 
00026 
00027 


0000 
0000 
0000 














* • • • • 








00028 


0000 






* = 


;(For example assembly) 




00029 


0000 


] 


NDEXl 


= 


;Any convenient z-page dbl. byte 




00030 


0000 


] 


RQDON 


= $E600 


; Restore regs. and RTI 




00031 


0000 


I 


NKSW 


= $EFFC 


; Latch for active bank 




00032 


0000 


c 


URBNK 


= $9002 


;My conventional location 




00033 


0000 












00034 


0000 


A5 00 I 


5 ANKER 


LDA INDEXl 


;Save INDEXl on stack 




00035 


0002 


48 




PHA 






00036 


0003 


A5 01 




IDA INDEXl+1 






00037 


0005 


48 




PHA 






00038 


0006 


BG 06 01 




IDY $0106, X 






00039 


0009 


ED 05 01 




LDA $0105, X 


;Get desired bank # 




00040 


oooc 


DO 01 




BNE BNKIOO 


; from (PC-l) 




00041 


OOOE 


88 




DEY 






00042 


OOOF 


84 01 I 


5NK100 STY INDEXl+1 






00043 


0011 


A8 




TAY 






00044 


0012 


88 




DEY 






00045 


0013 


84 00 




STY INDEXl 






00046 


0015 


AO 00 




IJ3Y #0 






00047 


0017 


Bl 00 




LDA { INDEXl ),Y 


;got it 




00048 


0019 


A8 




TAY 






00049 


OOIA 


68 




PLA 


; Restore (INDEXl) 




00050 


OOIB 


85 01 




STA INDEXl+1 






00051 


OOID 


68 




PU 






00052 


OOIE 


85 00 




STA INDEXl 






00053 


0020 


98 




TYA 


;a return-from-bank call? 




00054 


0021 


30 IE 




BMI UNSWT 


jYes 




00055 


0023 


9D 




.BYT $9D,$FF,$00 ;STA $OOFF,X (force abs. addr. 




00055 


0024 


FF 










00055 


0025 


00 










00056 


0026 


AO 06 




LDY #6 


;Move six stack items up one 




00057 


0028 


68 I 


3NK200 


PLA 


;Get top item 




00058 


0029 


9D 00 01 




STA $0100, X 


;Move up 




00059 


0020 


E8 




INX 


jNext 




00060 


002D 


88 




DEY 


;Done? 




00061 


002E 


DO F8 




BNE BNK200 


J No 




00062 


0030 


AD 02 90 




LDA CURBNK 


J Current bank (by convention) 




00063 


0033 


48 




PHA 


; Insert in stack 




00064 


0034 


8A 




TXA 


jCalc. stack adj . 




00065 


0035 


38 




SEC 






00066 


0036 


E9 08 




SBC #8 


1 Point to new bank item 




00067 


0038 


AA 




TAX 






00068 


0039 


9A 




TXS 






00069 


003A 


68 




PIA 


;Get new bank 




00070 
00071 


003B 
003E 


8D FC EF 
40 00 E6 




STA BNKSW 
JMP IRQDON 


jTurn it on 

;Go finish interrupt 


Listing 2 


00072 


0041 


BD 07 01 


JNSWT 


LDA $0107, X 


;Get old bank # 


00073 
00074 


0044 
0045 


48 

AO 06 




PHA 
LDY #6 


;Put on stack 

; Shuffle 6 items down 




Example jump table for bank switching 


00075 


0047 


BD 06 01 


JNSLOP LDA $0106, X 






as of 12/05/82 


00076 


004A 


9D 07 01 




STA $0107, X 






00077 
00078 
00079 


004D 
004E 
004F 


CA 
88 

DO F6 




DEX 
DEY 
BNE UNSLOP 


jNext 
;Done? 
;No 


.IFN > LMABNK-LCRBNK 

LOADTR^ jDummy def. outside main bank 


00080 
00081 


0051 
0052 


68 

8D FC EF 




PLA 

STA BNKSW 


jGet old bank 
J Reset it 


BRK ;LOADTR in bank LMABNK 
.BYTE LMABNK 


00082 


0055 


68 




PLA 


;Adj. stack 


JSR LOADTR 


00083 


0056 


40 00 E6 




JMP IRQDON 


; Finish up 


BRK 


00084 


0059 






.END 




.BYTE $FF J Back to caller 
RTS AlCPO 
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NIBBLE EXPRESS II 

YOUR APPLE* WILL LOVE IT! 



TABLE OF CONTENTS 









Turtle Graphics . ..^^^^^^^ 
Applesoft Line CruncHer ■'""*""'"*■""* 






TRAC Income System . . :Cv;;^j&f?^ 

.MAMA ,2i-^i^^,^i ^M^m^^ ■ • •■ -^ilii 

' Amper Free'SpaSif'SatiSlQg^ ..^..^^p 
Machine Language Editor?g:;ifii^l«^^| 
Apple CALENDAR . . .,v^liPg|gf ^ 
Peaceful Coexistence,|gf||p^P 

Apple Slugger rSl^Jlf^.3af 

Reverse Key Bffi^'iSIMil^; 
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Directory Menu 
for the 




The Commodore directory can be 
accessed by opening it as a file 
and reading program and 
filenames. The directory can be read 
with GET# statements, but this 
method is rather slow: 50 programs 
take almost 20 seconds to display (it 
would be faster to list the directory the 
usual way; load the program, and run|. 
I wrote a short machine-language rou- 
tine to speed things up: 50 programs 
take about five seconds to display. The 
program stores the machine-language 
routine in the second cassette buffer 
and opens the directory after the drive 
number has been selected. Two strings, 
one for the header and one for the 
filenames, are pre-extended and filled 
with 17 spaces. 

The machine-language program 
reads each directory entry and stores 
the filename in the pre-extended string. 
If the filename is a program, the "p" is 
stored in the 17th character of the 
string. BASIC regains control and 
stores the program name in an array. 
Then the machuie-language routine 
gets the next filename. This looping 
continues until all the entries are read, 
then the directory is displayed. 

The Directory Menu program can 
be stored as the first program on a disk. 
If you type 'LOAD"*", 8' and "RUN" 
the program will execute. The other 
programs on the disk could be modified 
to chain back to the directory program 
at the end of their execution. Inex- 
perienced users will find this arrange- 
ment especially useful because it 
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by Al Korostynski 



allows them to run programs on a disk 

without having to learn and remember 

many disk commands or program names. 

Be sure to save the program before 



using it for the first time. There are two 
reasons for this. First, you may make an 
error in entering the machine-language 
data statements, which could destroy 



Listing 1 



SPRCES - REHD HEflDIHG 



1 e POKE53230 , £. : P0KE5328 1 .. 1 

£0 PRINT";;ai" 

180 DIM F*':224;i 

liei REM — POKE ML ROUTINE — 

12Q FOR X=8S0 TO 950: RERD Z: POKE X.Z: CS=l:S+Z : NEXT 

1-50 IF C.SO10432 THEN PRINT '^aiERROR - CHECK DRTR STRTEMENTS. 

150 REM — RERD DIRECTORY — 

160 PRINT TRB(:i2:>"ja DIRECTORV MENU mpM" 

170 PRINT "DRIVE # Ollll" ; : INPUT D* 

130 D=VRL';:D*>: IF D*<>"0" RND D*<>"1" THEN 160 

190 OPEN i 5. .S,, 15 

S00 PR I NT# 1 5 ., " I " +D* : GOSUB 2^0 

210 OPEN 1 . S , . " * ■' +D* : GOSUB 290 

220 H*=" "-!."": 3VS 830: REM 

230 IF ;-T THEN CLOSEl : CL0SE15: GOTO 340 

240 Fj=" .> + ..n. £;yg £iS0. REM 17 SPRCES - RERD FILEHRME 

250 IF RIi:iHT*<F*.. 1> = "P" THEN C=C+1 : F*';C>=LEFT*<F*. IS:* 

260 GOTO 230 

270 ! 

2S0 REM — DISK ERROR ROUTINE — 

290 INPUT#15,EH.,Eri*.ET.,ES: IF EN=a THEM RETURN 

300 PRINT EN;EM*;ET.!ES 

310 CLOSE! : CLOSEl 5: END 

320 : 

330 REM — DISPLRV MENU — 

340 IF F-0 OR F=C THEN S=l : F=C s IF C>40 THEN F=40 s OCTO 360 

350 IF OF THEN S=S+20 : F=C s IF 03+20 THEN F-S+19 

360 L-0 

370 PRINT "OaCiRIVE tt :■" ;D; " JSZUSK NRME:" ";H*"a" 

3S0 FOR X=S TO 3+19 

390 L-L+1 

395 I FLEN ':: F* C X > > =eTHEN420 

400 I FRSC -; F* '•: X > :> =32THEH4£0 

410 PRINT ■'^"RIGHT*'::STR*';X>.,2:>"l";CHR*<95;>r" ".rF*':;X;> 

420 NEXT 

430 PRINT 

440 PRINT "a ENTER: <RET:> FOR NEXT PRGE e TO END M" 

450 PRINT TRBC9Vja SELECT PROGRRM ■" .: : INPUTG* 

500 IF G*="e" THEN PRINT "la" J END 

510 G=VRL'::G*:> : IF G=0 THEN 340 

550 REM — CHRIN — 

560 f*=f*'::g:> ^^^ 

570 IF RlGHT*f:F*..l> = " " THEN F*=LEFT* ■; F* .rLEN'::F*>-l :v : GUTU --.'0 

580 PRINT ";3_0RD"+C.HR*'::34>+D*+" : "+F*+CHR*'::34;j + " ,,S" 

590 PR I NT " LigSMsP " +CHR* < 34 > + " 3" +CHR* C 34 > + " : RUN " 

600 POKE 631.. 19 SPOKE 632,. 13:P0KE 633.rl3:P0KE 198/3 

610 END 

870 REM — ML ROUTINE DRTfl ~ 

880 DRTR 162.. 1,32, 198 ,.255.. 160^,1., 17? .7 1.1 33 

S90 DRTR 39 , 200 ., 1 77 ,. 7 1 .. 1 33 ,. 1 00 .. 1 62 ,, 32^32 ,, 267 

900 DRTfl 255 r 202 , 224 ,. 27 ..208 .. 248 , 32 ,, 20 ,'' .^255 .r 20 1 

910 DHTR 34 .240.,5..202.r208,r246,.240..29,160..0 

920 DRTR 32. 207 .,255. .201. ,34. 240. ,5 ,,145. ,99 .,200 

930 DRTfl 208 ., 244 , 32 ..207 ., 255 .- 240,1 ,, 20 1 ., 80 ., 20S 

940 DRTR 247 . 1 60 ., i 6 , 1 45 .. 99 ., 208 ., 24 1 , 32 ., 204 ., 255 

950 DRTR 96 
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Listing 2 



0022 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
0031 
0032 
0033 
0034 
0035 
0036 



* * 
« MENU DIRECTORY » 
« BY AL KOROSTYNSKI * 
» * 

START 

* EQUATES 
QUOTE EQU $22 
VARPTR GEQU $47 
FPACC GEQU $63 
lOSET EQU $FFC6 



lORSTOR EQU $FFCC 
GETCHAR EQU $FFCF 



ORG $370 



0370 A201 
0372 20C6FF 
0375 AOOl 
0377 B147 

0379 8563 
037B 08 
0370 B147 
037E 8564 

0380 A220 
0382 20CFFF 

0385 CA 

0386 EOIB 
0388 D0F8 
038A 20CFFF 
038D C922 



LDX #$01 

JSR lOSET 

LDY #$01 

IDA ( VARPTR), Y 

STA FPACC 

INY 

IDA (VARPTR) >Y 

STA FPACC+1 

LDX #$20 

JSR GETCHAR 

DEX 

CPX #$1B 

BNE LOOP 

JSR GETCHAR 

CMP #QUOTE 



0037 038F 

0038 0391 

0039 0392 

0040 0394 

0041 0396 

0042 0398 

0043 039B 

0044 039D 

0045 039F 

0046 03A1 

0047 03A2 

0048 03A4 

0049 03A7 

0050 03A9 

0051 03AB 

0052 03AD 

0053 03AF 

0054 03B1 

0055 03B3 

0056 03B6 



F005 

CA 

D0F6 

FOID 

AOOO 

20CFFF 

C922 

F005 

9163 

C8 

D0F4 

20CFFF 

FOOA 

C950 

D0F7 

AOlO 

9163 

DOFl 

20CCFF 

60 



NEXT 
LOOPl 



BEQ 
DEX 
BNE 
BEQ 
LDY 
JSR 
CMP 
BEQ 
STA 
INY 
BNE 
JSR 
BEQ 
CMP 
BNE 
LDY 
STA 
BNE 
JSR 
RTS 



NEXT 

AGAIN 

DONE 

#$00 

GETCHAR 

#QU0TE 

AGAINl 

( FPACC ),Y 

LOOPl 

GETCHAR 

DONE 

#$50 

AGAINl 

#$10 

( FPACC ),Y 

AGAINl 

lORSTOR 



your work. Second; when the menu 
program is running, it is overwritten as 
you chain to your first program. 

The machine-language routine 
loads into the second cassette buffer. 
The routine is fully relocatable, so if 
there is a conflict store it elsewhere. 

To run the program, enter the drive 
number (0 or 1). The program takes a 
few seconds to read the directory and 
then it will display the program names 
on the disk. If there are more than 20 
names, pressing return will list the 
next page. All pages may be viewed in 
this fashion and the pages will wrap 
around to the first page after the last 
page is displayed. To end the program, 
press "@". To make a selection, enter 
the appropriate number and press return. 

Note that while the program will 
display only program names and not se- 
quential or relative filenames, some 
files are stored as program file-types, 
such as Word-Pro, machine language, 
and other files. Care must be taken not 
to select them from the menu. 
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C64-FORTH 

for the Commodore 64 

FORTH SOFTWARE FOR THE COMMODORE 64 
C64-FORTH (TM) for the Commodore 64 - $99.95 

• Fig Forth-79 implementation with extensions 

• Full feature screen editor and macro assembler 

• Trace feature for easy debugging 

• 320x200, 2 color bit mapped graphics 

• 16 color sprite and character graphics 

• Compatible with VIC peripherals including disks, data set, modem, 
printer and cartridges 

• Extensive 144 page manual with examples and application screens 

• "SAVETURNKEY" normally allows application program distribution 
without licensing or royalties 

C64-XTEND (TM) FORTH Extension for C64-FORTH - $59.95 
(Requires original C64-FORTH copy) 

• Fully compatible floating point package including arithmetic, 
relational, logical and transcendental functions 

• Floating point range of lE+38 to 2E-39 

• String extensions including LEFT$, RIGHT$, and MID$ 

• BCD functions for 10 digit numbers including multiply, divide, and 
percentage. BCD numbers may by used for DOLLAR.CENTS 
calculations without the round-off error inherent in BASIC real 
numbers. 

• Special words are provided for inputting and outputting 
DOLLAR.CENTS values 

• Detailed manual with examples and applications screens 

{Commodore 64 is a trademark of Commodore) 

TO ORDER- Specify disk or cassette version 

- Check, money order, bank card, COD's add $1.50 

- Add $4.00 postage and handling in USA and Canada 

- Mass. orders add 5% sales tax 

- Foreign orders add 20% shipping and handling 

- Dealer inquiries welcome 

PERFORMANCE MICRO PRODUCTS 

770 Dedham Street. S-2 

Canton, MA 02021 

(617) 828-4209 




COMPILE 
ATARI BASIC 
AND FLY! 



With ABC™, Monarch's | new BASIC 
compiler for ATARI 400" and 800, you 
develop and debug pro-1 grams using 
your ATARI BASIC car- #tridge. then 
use ABC to transform ■ them Into 
compact code that runs%up to 12 
times faster, without the ^cartridge 
(and protects your source ^ code, too). 
40K and disk required. ^ For your ABC 
diskette and manual ^end check or 
money order for 4^ $69.95 (or $9.95 for 
manual alone).^ Monarch Data Systems 
^^RO. Box 207, Cochituate 
^^^W\A 01778, (617) 877-3457. 



■■I Mas 
III inqu 



Mastercard/Visa by phone. Dealer 
inquiries invited. Mass. residents add 
5% sales tax. ATARI, ATARI 400, and 
ATARI 800 are trademarks of ATARI, Inc. 
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Directory 




nu 



forth 
Atari 




by Jerry White 
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For a directory menu on the Atari 
all you need are your DOS master 
disk, a blank disk, and the two 
short BASIC programs that follow. If 
you don't remember a program name, 
you can give BASIC the command 
"DOS", then use option "A" to 
display your disk's directory file. DOS 
also provides a Binary Load option for 
loading machine-language programs. 
To load a BASIC program, it is a fairly 
simple matter to use the "B" option to 
get back to BASIC, then the BASIC 
"LOAD" or "RUN" commands. 

Begin by inserting your Atari BASIC 
cartridge, then boot your computer 
with your DOS master disk in disk 
drive 1. At the "READY" prompt, type 
"DOS" and RETURN. Remove your 
DOS master and insert your blank disk. 
Type "I" and RETURN to tell DOS 
that you want to format a disk, then 
type "Y" and RETURN to format. 
Once you have a formatted disk, use 
DOS option "H" to write DOS files, 
then return to BASIC using DOS op- 
tion "B". 

When you boot using Atari's DOS 
2. OS, the computer reads the DOS. SYS 
file first, then looks to see if there is a 
file named "AUTORUN.SYS" on the 
disk. If so, it loads AUTORUN.SYS and 
executes its instructions. To tell the 
computer to RUN a program called 
"MENU", type in the "MAKEAUTO" 
program. Before running any untested 
program, make sure you save it on a 
disk just in case something goes wrong. 
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Type in the MAKEAUTO program ex- 
actly as you see it printed, then save it 
using the immediate mode BASIC com- 
mand SAVE"D:MAKEAUTO". 

Now type "RUN" and RETURN to 
create your AUTORUN.SYS file. You 
will be instructed to insert your disk in 
drive 1, then press the START button 
to begin. If all went well, your AUTO- 
RUN.SYS file will be written onto the 
disk within a few seconds, and you will 
see the message BASIC IS READY. 

Before you begin to type in the 
"MENU" program, type "NEW" and 
RETURN to remove the MAKEAUTO 
program from your computer's 
memory. 

I used some of Atari's graphic char- 
acters and some inverse video letters in 
the MENU program. In line 140, the 
straight vertical line character is 
entered by holding the SHIFT key 
while typing the " = " or down-arrow 
key. The characters within quotes in 
line 280 are entered by holding the 
CTRL key while typing the "Q" key. 



the "R" key 33 times, then the "E" 
key. Similarly, the characters within 
quotes in line 550 are entered by 
holding the CTRL key while typing the 
"Z" key, the "R" key 33 times, then 
the "C" key. 

Use inverse video to enter the word 
"RETURN" in line 290, the word 
"SELECTION" in line 310, and the 
words "NUMBER" and "RETURN" in 
line 540. 

When you have finished typing in 
the MENU program, save it on your 
disk using the immediate mode com- 
mand, SAVE"D:MENU". 

Now go back to DOS and copy a few 
of your BASIC or machine-language 
programs onto this disk using DOS op- 
tion "O". At this point, if you typed in 



the MAKEAUTO and MENU programs 
correctly and followed the preceeding 
instructions, you are ready to begin 
using your new automated system. Just 
turn off your computer and turn it on 
again. DOS. SYS should load, then turn 
over control to AUTORUN.SYS, which 
will run the MENU program. 

MENU will display the contents of 
your disk (up to 34 files) excluding 
DUP.SYS and AUTORUN.SYS. All you 
have to do now is type your selection 
number and RETURN. Isn't automa- 
tion wonderful? 



Listing 1 



1 REM MAKEAUTO by Jerry White 

2 REM version date A/12/83 

10 GRAPHICS 0:POKE 82,2: POKE 83,39: POKE 752,1 

20 ? :? "INSERT DESTINATION DISK IN DRIVE 1" 

30 ? :? "PRESS START TO CREATE AUTORUN . SYS .": POKE 53279,: 

AQ IF PEEK{53279)<>6 THEN 40 

50 ? :? "CREATING AUTORUN.SYS TO RUN MENU." 

60 TRAP 300: CLOSE #1:0PEN #1,8,0, "D: AUTORUN. SYS" 

70 TRAP 400: FOR BYTE=1 TO U8:READ IT: 

PUT #1, IT: POSITION 17,10:? BYTE; : NEXT BYTE 
80 CLOSE #1:P0KE 752,0:? :? :? "BASIC":? "IS"j :END 
100 DATA 255,255,0,6,133,6,162,0,189,26 
110 DATA 3,201,69,240,5,232,232,232,208,244 
120 DATA 232,142,105,6,189,26,3,133,205,169 
130 DATA 107,157,26,3,232,189,26,3,133,206 
140 DATA 169,6,157,26,3,160,0,162,16,177 
150 DATA 205,153,107,6,200,202,208,247,169,67 
160 DATA 141,111,6,169,6,141,112,6,169,10 
170 DATA 141,106,6,96,172,106,6,48,9,185 
180 DATA 123,6,206,106,6,160,1,96,138,72 
190 DATA 174,105,6,165,205,157,26,3,232,165 
200 DATA 206,157,26,3,104,170,169,155,160,1 
210 DATA 96,0,0,0,0,0,0,0,0,0 
220 DATA 0,0,0,0,0,76,0,0,0,34 
230 DATA 85,78,69,77,58,68,34,78,85,82 
240 DATA 255,255,226,2,227,2,0,6 

300 ? :? :? "UNABLE TO OPEN AUTORUN.SYS FILE.": GOTO 80 
400 ? :? :? "UNABLE TO READ BYTE #";BYTE;" OF 148." 
410 ? "FIX PROGRAM DATA THEN RERUN.": GOTO 80 



Listing 2 



100 GOTO 480: REM MENU by Jerry White 

110 REM version date 4/12/83 

120 IF DREC$(4,8)=" FREE" THEN GOTO 240 

130 NUM=NUM+1:W0RK$=DREC$(3,10):W0RK$(9,9)=".": 

W0RK$ { 10 , 12 } =DREC$ ( 11 , 13 ) 
140 LINE$="| ":LINE$(LEN(LINE$)+1)=W0RK$: 

DISK${LEN(DISK$)+1)=W0RK$ 
150 LINE$(14,14)="(":JW=USR(1536,ADR(LINE$)):NUM$=STR$(NUM) 
160 IF NUM<10 THEN NUM$(2,2)=NUM$(l,l) :NUM$(1,1) = "0" 
170 RETURN 

180 TRAP 280: INPUT #1,DREC$ 

190 IF DREC${3,5)="DUP" OR DREC$(3,5)="AUT" THEN 180 
200 GOSUB 120:? LINE$;NUM$; ") "; 
210 TRAP 240: INPUT #1,DREC$ 

220 IF DREC$(3,5)="DUP" OR DREC$(3,5)="AUT" THEN GOTO 210 
230 GOSUB 120:? LINE$(2,l4) ;NUM$; ") | ":G0T0 180 
240 IF NUM=0 THEN 280 
250 POSITION 36,(NUM/2)+2:? "I" 
260 POSITION 2,(NUM/2)+3:? "I " 
270 POSITION 36,(NUM/2)+3:? "|" 

280 ? "|^„ , ^ „ „m ..J" 

290 ? " TYPE AND RETURN TO RESTART": CLOSE #1 

300 POKE 752,1: POSITION 1,23:? " ";:P0SITION 10,22:? BLANK$ 

310 POSITION 1,22: POKE 752,0;? BLANK${l,10) ; " SELECTION "; 

320 POKE 764, 255: TRAP 300: INPUT SEL:POKE 752,1:? " "; 

330 IF SEL<>INT(SEL) THEN GOTO 300 

3340 IF NOT SEL THEN RUN 

350 IF SEL=1 THEN W0RK$=DISK$(1,12) :GOTO 380 

360 WORK$=DISK$( (SEL-1)*12+1, (SEL-l)^t 12+12) 

370 IF WORK$Cl0,10)=" " THEN W0RK$=W0RK$(l,8) 

380 IF U0RK$(1,4)="MENU" THEN RUN 

390 IF W0RK$(1,3)="D0S" THEN DOS 

400 DREC$="":FOR STP=1 TO LEN(WORK$) : 

IF WORK$(STP,STP)=" " THEN 420 
410 DREC$CLEN(DREC$)+1)=W0RK$(STP,STP) 
420 NEXT SIP :WORK$=DREC$: POSITION 17,22:? BLANK$(l,12) 
430 DREC$="D:":DREC$(LEN(DREC$)+1)=W0RK$ 
440 POSITION 1,22:? BLANK$ (1, 10) ; "LOADING ";WORK$: 

CLOSE #3: TRAP 450: RUN DREC$ 
450 TRAP 460rCL0SE #1:0PEN #1,4,0,DREC$: JW=USR(5576) 
460 POSITION 4,22:? "I WAS UNABLE TO RUN THAT PROGRAM" 
470 FOR JW=100 TO 255:S0UND 0, JW,10, JW/50:NEXT JW:RUN 
480 GRAPHICS 0: CLOSE #3: OPEN #3,12,0, "S: ": POKE 559,0 
490 POKE 752,1: POKE 82,2: POKE 83,39: POKE 16, 64: POKE 53774,112 
500 POKE 710,160:P0KE 709, 13: POSITION 9,0:? "MENU by Jerry White" 
510 DIM BLANK$(28):BLANK$=" ":BIANK$(28}=" ":BLANK$(2)=BLANK$ 
520 DIM W0RK$(40),LINE$(20),DREC${40),DISK$(400),NUM$(2) 
530 CLOSE #1:0PEN #1,6,0, "D:^,^^" 
540 POSITION 4,2:? "TYPE PROGRAM NUMBER THEN RETURN" 

550 POSITION 2,3:? "f"^'"' " ' " < m,.M»„ m , ^m ».......iw ■.■■ . ji r 

560 FOR ME=0 TO 24:READ IT:POKE 1536+ME,IT: 

NEXT ME: POKE 559,34: GOTO 180 
570 DATA 104,104,133,206,104,133,205,160,0,177,205 
580 DATA 201,32,208,4,169,46,145,205,200,192,13,208,241,96 
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by Mike Dougherty 



A Graphics Notepad is a computer environment where 
graphic images may be interactively drawn under 
control of "English-like" commands typed on a 
"notepad." A typical implementation of a Graphics 
Notepad allows a video device (CRT or RF modulated 
television) to create two windows on the video screen. 
One window serves as the workspace for the graphic im- 
ages; the second window forms the notepad. Commands 
written on the notepad are executed by the Graphics 
Notepad software. Any graphic results of the commands 
are displayed in the graphics workspace. 

This article discusses a Graphics Notepad for the Atari 
800. The Graphics Notepad implementation uses Atari 
graphics mode 8 (GR.8), APX fig-FORTH, and an Epson 
MX- 80 F/T printer with GRAPHTRAX firmware. Since a 
Graphics Notepad environment is constantly expanding 
and growing with the user, the FORTH words defined in 
this article represent only a beginning. The ultimate 
capability of a Graphics Notepad is limited only by the im- 
agination of the user. 

Atari 800 Graphics Notepad Implementation 

The Atari graphics modes 6, 7, and 8 are well-designed 
to implement a simple Graphics Notepad. This article will 
deal only with graphics mode 8 (GR.8), but the principles 
could be extended to cover the other graphics modes as 
well. GR.8 gives the user a graphic workspace of 160 dots 
vertically by 320 dots horizontally and creates a four-line 
notepad for communication with the Graphics Notepad 
software. The Atari Operating System (OS) currently 
allows the application software or language to plot points, 
draw lines, and fill areas of the graphic image. This small 
set of OS primitives relieves some of the software burden 
for high-level graphic commands. 
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The omission of high-level graphic commands may be 
corrected by software extensibility. The Graphics Notepad 
software or language should allow new primitives to be 
defined and easily used. This is where a language such as 
BASIC has difficulty. FORTH, on the other hand, is ex- 
plicitly designed for extensibility and is used in this 
Graphics Notepad implementation. With FORTH, graphic 
images may be defined and used to build more complex 
images. While, in principle, BASIC can provide exten- 
sibility via subroutines, FORTH words are a far superior 
mechanism for software extension. 

Finally, the Epson MX- 80 printer is used to print the 
graphics workspace. This printer yields a 2.25-inch by 
5.25-inch image, which is sufficient for the Atari im- 
plementation of the Graphics Notepad. 

Software for Minimal Atari Graphics Notepad 

The software capabilities of a minimal Graphics 
Notepad are a function of how the Graphics Notepad will 
be used. There is no clear distinction between software 
that is part of the minimal Graphics Notepad and software 
that is an extension. (This is the same problem that occurs 
when defining standard FORTH.) The words in Glossary 
1, Screens 44 through 56, bring APX fig-FORTH to what I 
consider the minimal Graphics Notepad. The user com- 
mands are described next. 

The FORTH word GTABLET initializes the Atari 
Graphics Notepad windows. GTABLET sets up the GR.8 
screen, erases any previous results, and sets the colors. 
GTABLET may be executed at any time to clean the 
graphics workspace. The user exits the Graphics Notepad 
by executing the APX fig-FORTH word, XGR. (The APX 
graphics package must be LOADed prior to LOADing the 
Graphics Notepad.) (Continued on page 68) 
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When it comes to superior performance, 
we study our lines very carefully. 



Superior printer performance is not a fluke. 
It evolves from analyzing printed line after 
printed line. Taking the time to test and retest. 
After 30 years of manufacturing precision 
parts, we know that there are no shortcuts. 

And so we took the Gemini-lOX and method- 
ically put it through its 120 cps pace. We 
achieved a print head life of over 100 million 
characters with an extremely precise dot align- 
ment creating each crisp character. 

So far so good. 

Next, sophisticated performance de- 
manded versatility A wide choice of 
character sets, a buffer expandable ■ ■ 

to 8K, and the ability to interface ^ 
with all popular personal 
computers. We added macro I 



m 



micromgs»inc 
THE POWER BEHIND THE PRINTED WORD. 

Computer Peripherals Division 
2803 N.W. 12th Street, Daflas/Ft. Worth Airport, TX 75261 



instruction, giving Gemini-lOX the capability 
to perform up to 16 operations with one com- 
mand. We included as standard a paper 
feed system that has a friction and fully adjust- 
able tractor feed. Then we even built in the 
dexterity to print graphics and text on the 
same line. 
Done. 

And, of course, staying the best means 
constant reviewing and fine-tuning. Keeping 
the Gemini easy to find, easy to afford and so 
reliable it can be warranted for up to twice 
as long as its major competitors. 

Only the most careful 
^^ engineering has built the new 
V^ hard-working Gemini-lOX. 

You'll applaud its performance. 




— Atari — 

The FORTH word TEXT allows the Graphics Notepad 
user to write text directly from the keyboard onto the 
graphics workspace. TEXT uses an inverse video cursor 
under control of the arrow cursor keys for positioning the 
text. The cursor is moved horizontally, in steps of eight 
graphic dots (one full character width) and vertically, in 
single dot steps (one display line). The RETURN key may 
be used to move the cursor down by eight dots (one full 
character height) . Once the cursor is properly positioned, 
the user adds the text to the graphics workspace by simply 
typing on the keyboard. The text added to the graphics 
workspace will overlap with any previous image value 
under the 8 x 8 character size. Upper-case, lower-case, and 
most graphic characters may be entered onto the graphics 
workspace. The user exits from the TEXT function by 
pressing the ESC key. 

The FORTH word LABEL behaves identically to TEXT 
except that the text added to the graphics workspace will 
overwrite any previous image value under the 8x8 
character size. TEXT is used to write on top of the graphics 
workspace, while LABEL is used to replace a part of the 
workspace with character text. 

Both TEXT and LABEL use the Atari character 
generator ROM, beginning at memory address $E000 
(decimal address 57344). This ROM defines each row of a 
character in eight consecutive bytes for a total character 
size of 8 x8 dots. The word ASCn-> ROM translates the 
ASCII character into the beginning ROM address for that 
character. Since each GR.8 line is 40 bytes long, a 
character is put on the GR.8 screen by moving eight con- 
secutive ROM character bytes to GR.8 memory at 40~byte 
intervals (separating the character bytes by 40-byte posi- 
tions, each byte under the previous byte). 

Both TEXT and LABEL make use of the CASE state- 
ment defined by Dr. C. E. Eaker. The original CASE 
FORTH code was presented in FORTH Dimension, 
Volume II, Number 3, pp. 37-40. Only the CASE-word 
names were changed when used in the Atari Graphics 
Notepad (Screen 52). 

The FORTH word SAVE-SCREEN allows the user to 
save an intermediate version of the graphics workspace. 
Thus, if a command does not work as anticipated, the 
previously saved graphics workspace may be recovered by 
the FORTH word RESTORE-SCREEN. Note that these two 
words require a workspace buffer, WORKSPACE-BUF, of 
6400 bytes in size. Atari Systems with limited memory 
should not compile and use Screen 56. 

The FORTH word BORDER simply adds a line border 
around the graphics workspace. This command is used 
primarily with the hardcopy function to define the 
graphics workspace on the printed page. 



Hardcopy Function 

The Hardcopy function of this Graphics Notepad im- 
plementation is performed by an Epson MX- 80 F/T printer 
with GRAPHTRAX firmware. APX fig-FORTH VI. 1 opens 
channel #6 to the printer for use with the words PON and 
POFF. The Atari Graphics Notepad makes use of this 
channel with the word PRINT-CHAR. Any changes made 
in updates of APX fig-FORTH will necessitate changes in 
PPJNT-CHAR. Glossary 2, Screens 31 through 43, define 
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the FORTH hardcopy words used in the Atari Grap- 
hics Notepad. 

The Epson printer gives high-resolution graphic output 
by allowing the user to control each dot on the page. For 
the normal graphics print mode, each 8-inch line contains 
480 dots (l/60th inch per dot) and each 10-inch page con- 
tains 720 lines (l/72nd inch per line). In the super 
graphics print mode, the horizontal dots in each line 
overlap, yielding 960 dots per 8-inch line, producing a 
generally more pleasing image. The graphics print mode is 
user-selected by the two FORTH words NORMAL and 
SUPER. The super graphics mode prints each image pixel 
(dot) twice to eliminate the horizontal spacing between 
dots. Since the vertical spacing is l/72nd of an inch, the 
super graphics printed image usually has a more solid 
appearance. 

The vertical line spacing of each print line is adjustable 
from a single dot to an 85-dot spacing, allowing printed 
lines to be overlapped or widely separated. The Atari 
Graphics Notepad uses two vertical line spacings with the 
FORTH words FAST-GRAPH and SLOW-GRAPH. FAST- 
GRAPH prints graphic lines utilizing the full available col- 
umn of eight dots and a line spacing of eight. SLOW- 
GRAPH uses a line spacing of only four and prints only the 
upper four dots of each graphic character. As a result, 
FAST-GRAPH will print the graphics workspace in 20 full 
lines (160 rows/8 dots per row), while SLOW-GRAPH 
takes 40 full lines (160 rows/4 dots per row). 

SLOW-GRAPH is included in the Graphics Notepad 
due to two problems with the Atari 850 Interface Module 
firmware. While the Epson printer is in normal or super 
graphics print mode it does not interpret the graphic 
characters as having any special meaning. Each graphic 
character is simply a bit pattern telling a specific printer 
dot to print (1) or not (0). Unfortunately, the Atari 850 firm- 
ware does not have a graphics mode. Because of this, the 
graphics character 155 ($9B = lOOllOU) is interpreted as 
an end-of-line character, EOL. The 850, not knowing 
about the Epson graphics modes, decides that a printer re- 
quires a carriage return (CR), 13 ($0D = 00001101), in- 
stead of the EOL and automatically converts the EOL to a 
CR. From the viewpoint of a graphic character, this 155 to 
13 conversion changes four dot values. FAST-GRAPH 
solves this problem by changing all 155 characters to 147 
($93 = lOOlOOII) before sending the character to the Atari 
850 for printing. The 147 is incorrect by only one bit, 
which usually will not be missed. 

The second problem occurs when two consecutive car- 
riage return characters are sent to the 850. Apparently, the 
Atari printers do not like consecutive CRs, so the 850 
automatically inserts an extra space character, decimal 32 
($20 = 00100000), between the CRs. This can lead to very 
unusual results that are hard to correct on the Epson! 
Since the most common occurrence of two CRs occurs 
when using super graphics print mode (each character is 
printed twice), PRINT-DOTS converts the first 13 to a 9 
($09 = 00001001). The 9 is again incorrect by only one 
dot, which should never be missed. However, SLOW- 
GRAPH, which prints only the upper four bits of each line, 
will never be printing the 155 (EOL) or 13 (CR) characters. 
Thus, for cases when the hardcopy must be an exact 
duplicate of the graphics workspace (or all else fails), use 
SLOW-GRAPH for printing. Most of the time, FAST- 
GRAPH will be sufficient and will print in half the time. 
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There is one additional printer problem. The data link 
from the Atari 800 to the printer is a one-way link. Once 
data is sent to the printer^ there is no guarantee that it 
reaches the printer without an error. I have found that 
with my six-foot ribbon cable, the data is occasionally 
susceptible to error. For normal listings^ an error usually 
means a misspelled word. However, when transmitting 
graphics data, many strange things can, and do, happen! 
Short of improving the cable, do the following for a run- 
away Epson: 

• Abort the FAST-GRAPH or SLOW-GRAPH by pressing 
any key (other than break). 

• Turn off the EPSON to initialize some of the printer 
variables. (If the run-away printer is ejecting paper, do 
this first!) 

• Manually position the paper as needed since most 
disasters include creative paper spacing. 

• Turn on the printer. 

• Software reset the printer with the FORTH word 
RESET-EPSON. 

Although not the best solution, the above steps seem to 
work after enough tries. 

Atari Graphics Notepad Applications 

To illustrate a simple use of the Graphics Notepad, 
figures 1 through 5 were drawn with the Atari Graphics 
Notepad and printed on the Epson. The basic construction 
of each figure is discussed below. Except where noted, all 
hardcopy used the super graphic print mode and FAST- 
GRAPH printing. 

Figure 1 is a demonstration of what TEXT and LABEL 
can do with interactive text entry. The image was created 
by using the Atari 800 keyboard alone. 

Figures 2 through 5 illustrate the capability of FORTH 
to build upon images. The image word FAN was defraed as: 



FAN 
320 10 DO 

2DUP 

1 ROT ROT PLOT 

1 I DRAW 
20 -MOOR 
2DR0P ; 



( X y -) 

( Across the screen) 

( Save a copy of x,y) 

( Plot the start) 

( Draw a line of FAN) 



( Clean up stack) 
Figure 2 was created by the commands: 
160 159 FAN BORDER SUPER FAST-GRAPH 
The word FAN-LINE was defined, based upon FAN: 



FAN-LINE 
160 39 DO 

DUP I FAN 
40 +L00P 
DROP ; 



( X -) 

( Down the screen) 

( Draw a FAN) 

( Every 40 lines down) 

( Clean up colunnn number) 



Figure 3 was created by the commands: 

FAN-LINE 
319 FAN-LINE 
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zAtari: 



1 



160 120 FAN 

BORDER SUPER FAST-GRAPH 



The lettering was added with the TEXT and LABEL 
Graphics Notepad words. For figure 4, FAN-LINE 
was modified: 

: FAN-LINE 
160 120 DO 

DUP I FAN 
5 +LOOP 
DROP ; 

The Graphics Notepad "160 FAN-LINE" command 
creates the figure 4 ghostly specter with small beady 
eyes! Figure 5 is the same but with the NORMAL graphics 
print mode. 

Hopefully the figures will inspire you to build your 
own Graphics Notepad and to create new and better 
graphic worlds. At the worsts you will end up having a lot 
of fun! 

The author may be contacted at 7659 West Fremont Ave., 
Littleton CO, 80123. 



irxxxxxxxvxxxxxxxxxxx)! 



<i iiaii i JJJJliJMiiiJMi i>-- 

I 11 I I I I f' f ■f-rn r i t ■ i ■ i ■" ■ n » i ■Wf i 

ABCOEI^GHXJKl.HMOP'ttRSTUVMKVZ: 

mmsam 



mwi^mi 



mil Mil iiliiiitiii till i 



ffl- 



TEKx>''i^^eE:i_ 



oeMOfisxi^at i on . 



■m 



|gxxxxxxxxxxx>o o o<xx>oo 



Figure 1 




Rgum 2 



F^ure 3 




MICRO 



FOCUS 



ON THE 6809 MICRO 
WORTH SWITCHING FOR 



FOCUS ... ON ITS 

SUPERIOR HARDWARE 

• 6809E Microprocessor provides 8-bit economy witii 16-bit 
capabiiities, position independent code and many advanced 
features 

• Commerciai quality Keyboard witii fuii UPPER/lower case 
ASCii, numeric iteypad and cursor controi Iceys 

• Two doubie-sided doubie-density mini diskettes with 
640K bytes of iBiVI-compatible storage 

• 56K Bytes User RAIV1 

• Full Video witii programmable screen formats, bit mapped 
graphics, user definable character sets, reverse video and 
hardware scrolling, plus a light pen interface 

• Full Communications support for RS-232 at 50 to 19.2K 
baud with programmable data formats 

• Built-in I/O Drivers include 6 parallel I/O ports, 3 serial I/O 
ports, 6 timers/counters, 20 mA current loop, and a 
programmable cassette interface 



^^ THIS IS ^ 

FOCUS 



FOCUS ... ON ITS 

EXTRAORDINARY SOFTWARE 



Includes the popular FLEXtm Operating System — a 
standard for the 6809 (supported by many vendors. 
Extended Floating Point Disk BASIC 

Interpreted and Compiled 
Text Editor and Macro Assembler 
Full feature FlexiMon debugging monitor 
Built-in Word Processor 



FOCUS ... ONUS 

VERSATILE EXPANDABILITY 

• IEEE-488 Bus Controller option for instrumentation 

• Supports multiple 8" diskette drives 

• PASCAL, FORTH and other high level programming 
languages are available 

• Complete Application Packages are available from many 
software sources 

• Add-on Hardware includes: Date/Time, Opto-lsolators, 
Stepper-Motor Controller, A/D and D/A, RAM and EPROM 
Memory, and others from several manufacturers 



FOCUS ... ON YOUR 

APPLICATION REQUIREMENTS 




FOCUS provides a completely integrated system of 
hardware and software, so that you can concentrate on 
your application requirements 



Very CoMplETE 
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34 Chelmsford Street 
Chelmsford, MA 01824 

Phone: 617/256-3649 
Telex: 955318 I NIL DIV 
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Glossary 1. Minimal Atari Graphics Notepad 

ASCII->ROM(ascii — ROMaddr) Screen 46 

ASCII-^-ROM takes the "ascii" character and returns the Atari 
character generator ROM address^ "ROMaddr", for that character's GR.8 
pattern. The flag INVERSE is set to 128 if the character was in in- 
verse mode. 

BORDER (—) Screen 55 

BORDER draws a single line border around the graphics workspace. 

C-DOWN(— ) Screen 49 

Move the TEXT/LABEL cursor down one display line. 

C-LEFT(— ] Screen 48 

Move the TEXT/LABEL cursor left eight dots, one character width. 

C-RETURN(-] Screen 50 

Move the TEXT/LABEL cursor down eight lines, one character height. 
The cursor horizontal position is not changed. 

C-RIGHT[^} Screen 48 

Move the TEXT/LABEL cursor right eight dots, one character width. 

CURSOR ( — I Screen 47 

Toggel the current TEXT/LABEL cursor by inverting the eight graphic 
bytes representing the cursor positon. This routine is used to set or clear 
the current cursor position. 

CURSOR^ADDR(— addr) Screen 45 

Compute the beginning memory address, "addr", of the TEXT/LABEL 
cursor in the graphics workspace, 

GNOTEPAD(— ) Screen 44 

Initialize the Graphics Notepad. This word may also be used to erase the 
current graphics workspace. 

LABEL (—] Screen 54 

Allow the user to replace portions of the graphics workspace with text 
entered from the keyboard. Exit from LABEL with the ESC key. 

RESTORE-SCREEN( — ) Screen 56 

Restore the previously saved graphics workspace (re-quires a 6400 byte 
buffer). 

SAVE-SCREEN {— ) Screen 56 

Save the current graphics workspace in a 6400 byte memory buffer. 

SHOW (ascii —) ; : Screen 51 

Place the "ascii^' character on the GR.8 graphics workspace at the cur- 
rent TEXT/LABEL cursor position. The cursor is moved one character to 
the right. 

TEXT[ — ) Screen 53 

Allow' the user to write on top of the image in the graphics workspace 
with text entered directly from the keyboard. Exit from TEXT with the 
ESC key. 



•Atari- 



Glossary 2. Epson l\flX-80 FFT Hardcopy 

2**N(n — 2**n) Screen 33 

Raise 2 to the "nth" power by multiplication — change to a CODE level 
word with shift instructions if 2**N is too slow. 

850-KLUDGE (char— char) Screen 40 

Correct for the actions of the 850 Interface Module on the print stream — 
refer to. the article for details. 

BIT-SLICE (buf addr — bitslice) Screen 38 

Accumulate bit7 (most significant bit) of the 8 bytes starting at 
"bufaddr". This "bit slice" is used as the vertical print column in the 
Epson graphics print mode. The top of the vertical column is stored 
in bit/ of the bit slice, while the bottom dot is bitO. The 8 bytes starting 
at "bufaddr" are shifted left one bit for the next call to BIT-SLICE. 

EPSON-GRAPHICS (n —) Screen 35 

Command the Epson to accept the next "n" bytes as graphic characters. 
Each graphic character will control the 8 vertical printing pins of the 
Epson, the top being bit7 and the bottom pin bitO. 

FAST-GRAPH (— I Screen 43 

Print the graphics workspace on the Epson printer, eight display lines at a 
time. Due to the 850 Interface Module, the EOL (155) and CR (13) 
characters may be modified — refer to the article for details. 

GET-DATA (memaddr—) Screen 37 

Move a vertical slice of 8 bytes from GR.8 memory to the buffer GR8- 
DATA for use by BIT-SLICE. 

INIT-LINE(— ) Screen 39 

Initialize the Epson to receive graphics mode characters for a print line of 
the graphics workspace. 

NORMAL (—) Screen 31 

Set the GMODE flag for normal graphics print mode, 480 dots per 8 
inch line. 

NORMAL-EPSON (—) Screen 36 

Reset the Epson line spacing to l/6th inch default. 

PRINT-CHAR(char— ) Screen 32 

Output "char" to the printer using printer channel #6 (PRINTER- 
CHANNEL) which was opened by APX fig-FORTH. 

PRINT-CR(-) Screen 34 

Print a carriage return on the Epson. 

PRINT-CRS[n-) Screen 34 

Print "n" carriage returns on the Epson. 

PRINT-DOTS (addr mask — addr + 40) Screen 41 

Print 1 to 8 graphics workspace display lines on the Epson printer. 
"Addr" points to the start of the graphics workspace lines in memory. 
The AND "mask" is used to determine which bits will be allowed to 
print. For FAST-GRAPH, "mask" is 255 ($FF) while for SLOW-GRAPH, 
"mask" is 240 [$F0). 

PRINT-SPACE (—) Screen 34 

Print a space on the Epson. 

PRINT-SPACES (n -) Screen 34 

Print "n" spaces on the Epson. 

RESET-EPSON (—) Screen 36 

Perform a software reset of the Epson printer for "run-away" situations 
due to noise glitches, etc. 

SCREEN [— grSbase) Screen 36 

Return the beginning memory address of the graphics workspace, 
"grSbase". This word is used in both the Epson hardcopy and minimal 
Graphics Notepad application. 



SCREEN-DUMP (n—) Screen 42 

Print the contents of the graphic workspace, "n" display lines at a time. 

SETUP-EPSON (n —) Screen 39 

Set the Epson print line to "n" rows. 

SLOW-GRAPH () : !... Screen 43 

Print the graphics workspace on the Epson printer, four display lines at 
a time. 

SUPER (-) Screen 43 

Set the GMODE flag to super graphics print mode, 960 dots per 8 inch 
line. This mode allows each pixel (dot) to be printed twice and over- 
lapped, forming a more solid image. 
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Atari Graphics Notepad for APX fig-FORTH VI. 1, Rev 1 
by Mike Dougherty 

To LOAD both the Epson Hardcopy and the Graphics Notepad: 

— 30 LOAD 

; To LOAD the Atari Graphics Notepad only: 

— remove comments on SCREEN de^=inition, Forth Screen #44 

— 44 LOAD 

[ To LOAD SAVE-SCREEN and RESTORE-SCREEN Crequires 6400 bytes3: 
[ — 56 LOAD 



( BASIC EPSON Lires J 

: PRINT-CR 

155 PRINT-CHAR ; 

: PRINT-CRS 

O DO PRINT-CR LOOP ; 

: PRINT-SPACE 

32 PRINT-CHAR J 

: PRIKT-SPACES 

O DO PRINT-SPACE LOOP ; 



O ( ^rr B^SON INTO SWPHICS MODE ) 
1 

2 : EPSON-GRAPHICS 

3 -DUP IF 

4 ASCII-ESC PRINT-CHAR 

5 »«DE e IF 
a ASCII L PRINT-CHAR 

7 ELSE 

8 ASCII K PRINT-CHAR 

9 ENDIF 

10 256 /MOD SWAP 

11 PRINT-CMAR 

12 PRINT-CHAR 

13 ENDIF ; 



< n ) 

( If any gr^ihics* bytes > 

< Then init to expect graphics ) 
C I-f super graphics mode ) 
( use -<ESC>Lij" > 
(Else normal graphics mode ) 
( use -<ESC>Kij- I 

( Hhere i=LSB, j=MSB of n » 

t Note: i,j should not be 155 ) 
( • or 13 due to ^50 Inter — ) 
( face Module ) 



SCR # 31 

O ( EPSON MX-B 
1 

2 6 CONSTANT 

3 27 CONSTANT 

4 O VARIABLE 
VARIABLE 



F/T HARDCOPY FDR PRINTERS WITH 6RAFTRAXCTM3 ) 



5 O 



PRINTER-CHANNEL 
ASCII-ESC 
BR8-DATA 6 ALLOT 
BMODE 



NORMAL 
O GMODE 



SUPER 

1 GMODE 



( APX fig-Forth printer chan ) 
( For Epson printer commands ) 
•( For col of "vertical" bytes > 
( Super/normal graphics mode ) 



( Set hardcopy normal graphics ) 

( ) 

( Set hardcopy super graphics ) 



SCR » 36 

O ( RESET FROM GRAPHICS PRINTING ) 
1 

2 : NORMAL-EPSON < 

3 ASCII-ESC PRINT-CHAR 

4 ASCII 2 PRINT-CHAR ; 
5 

6 : RESET-EPSON 

7 ASCII-ESC PR I NT -CHAR 

8 ASCII e PRINT-CHAR ; 

10 : SCREEN 

11 106 ce 

12 256 * 

13 7B56 - ; 



( Reset the line spacing ) 
( with "<ESC>2" ) 



( Reset the entire Epson ) 
< with "<ESC>e" > 

C grSbase ) 

( Get current top of memory 

( Form 16 bit address ) 

{ Backup to first of 6R.B mei 



14 

15 — > 



( OUTPUT TOP OF STACK TO PRINTER ) 



PRINT-CHAR 

PRINTER-CHANNEL 

PUTC 

DROP i 



( char > 

( APX fig-Forth printer chan ) 
( Put a character ) 
C Drop the status ) 



< RAISE 2 TO TIC TOP OF THE STACK POWER > 



2 * 
LOOP 
ENDIF i 



n 2**n 1 

Initialize ^ 
If non-zero 
For n til 
Raise by 



power of 2 ) 



O t MOVE DATA TO B BYTE BUFFER ) 
1 

2 : GET-DATA 

3 S O DO 

4 DUP ce 

5 SR8-DATA I + 

6 C! 

7 40 + 

8 LOOP 

<? DROP ; 



< memaddr > 

( For 8 bytes of vert slice ) 

( Get a byte ) 

t Buffer addr > 

( Save whole byte > 

( Next line, 40 bytes down ) 

( Clean up memaddr > 



SCR # 3B 

O ( ACCUM BIT7, 



SHIFT BUFFER ) 



2 CODE BIT-SLICE 

3 1 * LDA, SETUP JSR, 

4 BEGIN, 

5 CLC, 

6 N )Y LDA, 

7 ROL.A, 

S N )Y STA, 

9 N 2 + RDL, 

10 INY, 

11 B # CPY, 

12 0= END, 

13 O # LDY, 

14 N 2 + LDA, PUBHOA JMP, 

15 FORTH — > 



< bufaddr bitslice 

( Move addr to N,»l+1 > 
( For all 8 bits ) 
( To clear buffer ) 
( Get buffer byte > 
Put bit7 into carry 



C Save 


shifted result ) 1 


C Put 


carry into result » | 


( Next 


buffer byte 


) 


( All 


a ? ) 




( Not 


yet 1 




< Yes, 


reset y reg 




( Exit 


with N+2 on 


stack ) 
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SCR * 39 

) C INITIALIZE 



SETUP-EPSON 
lO PRINT-CRS 
ASCII-ESC PRINT-CHAR 
ASCII A PRINT-CHAR 
PRINT-CHAR i 



8 : INIT-LIIsE 

9 13 PRINT-SPACES 

10 eiDDE e IF 

11 640 EPSON-SRAPHICS 

12 ELSE 

13 320 EPSON-GRAPHICS 

14 ENDIF ; 



( Space down the paper > 

( Set line spacing to n dots ) 

i with "<ESC>An" ) 



( 



> 



pace over the paper ) 
< If super graphics mode ) 
( Epson will get 640 char /line : 
( Normal graphics mode J 
( Epson will get 3ZO char /line 



# 40 

( GR«»HICS KLUDGE DUE TD 850 INTERFACE MODULE FIRMWARE > 



SSO-iCLUDeE 

DIW> 155 = IF 

DROP 147 
ENDIF 
aiODE e IF 

DUP 

Dl** 13 = 

imop 9 

ENDIF 

PRINT-CHAR 
ENDIF ; 



IF 



SCR # 41 

O ( PRINT A LINE OF DOTS ) 
1 

2 : PRINT-DOTS 

3 INITH_INE 

4 40 O DO 

5 OVER GET-DATA 
£, 8 DO 

7 GRB-DATA BIT-SLICE 

8 OVER AND 

9 B50-KLUDBE 

10 PRINT-CHAR 

11 LOOP 

12 SIMP 1+ SWW* 

13 LOOP 

14 DROP 

15 PRINT-CR ; ~> 



SCR # 42 

< DUMP A GRAPHICS 8 SCREEN ) 

1 : SCREEN-DUMP 

2 DUP SETUP-EPSON 



OVER 160 SWAP / 
O DO 

OVER MINUS a + 2»H 

MINUS 256 + 

PRINT-DOTS 

OVER 1 - 40 ♦ + 

7TERMINAL IF 

KEY DROP LEAVE 

ENDIF 
LOOP 
2DRaP 
NORMAL-EPSON ; 



t BASIC SCREEN DUMP MODES > 

: FAST-GRAPH 

8 SCREEN-DUMP i 

: SLOW-GRAPH 

4 SCREEN-DUMP ; 



( char char ) 

( If char is Atari EOL ) 

( Convert, else 850 makes CR ) 

( 147 is better than 13 > 

< If in super graphics mode ) 

( Each character printed twice 

{ But 2 CRs, 850 inserts space 

( So conver CR to OOOOlOOl ) 

( 9 is close, no added «20 ) 

( Output char twice ) 



SCR » 44 

O ( MINIMAL GRAPHICS TABLET FDR ATARI 



GNOTEPAD 
8 GR. 
SCREEN 6400 ERASE 

1 O O SETCOLDR 

2 9 3 SETCOLDR 

4 6 1 SETCOLDR ; 



SCREEN 

106 ce 

256 « 
7856 - ; 



( Initialize models graphics ) 
( Erase the graphics workspace 
( Set the video colors ) 
{ Change according to personal 
( taste. ) 



( Refiiove comments if LOADlng 
( The Atari Graphics Notepad 
( ohly — else leave commented 
( out of the Forth LOAD ) 



SCR # 45 

O < PUT CHARACTERS ONTO 
1 

2 O VARIABLE CURSOR-X 

3 O VARIABLE CURSOR-Y 

4 O VARIABLE INVERSE 

5 O VARIABLE TEXT/LABEL 



CURSOR-ADDR 



CURSOR-Y e 40 * 

cuRSOR-x e + ; 



GR.8 SCREEN USING ATARI CHAR ROM > 

( X position on screen ) 

< Y position on screen > 
( Inverse character flag ) 
( Flag to USB different modes 

( addr ) 

< Get base addr of screen ) 
( Add for line position > 
( Add for col position > 



SCR # 46 

O ( ASCII VALUE TO CHARACTER GENERATOR ROM ADDRESS 



( addr mask addr+40 > 

i Set up line sparing, graph ) 
( For 40 bytes of display mem ) 
( Get a columns of data ) 

< For dots in each column ) 

t Get the vertical bit slice ) 
( Keep mask bits of data ) 
( Correct for 850, do GMODE ) 
( Output graphics column > 

< All 8 vertical columns ) 

< Nbxt B columns ) 

(All across the screen row > 
( Drop mask, leave addr+40 ) 
t Move to a new line ) 



( n > 

( Set Epson to n dots/line > 
C Get the start of GR.S mem ) 

< # of n dot lines to print ) 
( For each line of n dots > 

( Form bit mask for n dots ) 

C as 256 - 2**ca-n3 ) 

( Print the dots not masked ) 

( Update GR.B address ) 

( If any key is pressed ) 

t Get/ ignore key, abort loop > 

{ For all n dot lines ) 

< Clean up n,addr > 

( Reset printer to normal mode 



2 57344 CONSTANT CHAR-ROM 
3 

4 : ASCII->ROM 

5 DUP 128 AND INVERSE 

6 127 AND 

7 DUP 32 < IF 

8 64 + 

9 ELSE 

10 DUP 96 < IF 

11 32 - 

12 ENDIF , 

13 ENDIF 



( Atari char ROM at *EOOO ) 

( key addr ) 

( Isolate inverse flag > 

( Strip any inverse value ) 

( If control character ) 

< Hap into 64-95 ) 

< Not control character ) 
( If uppercase > 

( Map into 0-63 > 

( Else leave value 96-127) 

( B bytes per char > 

( Add base address ) 



: # 47 

i ( T0G6EL TEXT/LABEL CURSOR ON/ OFF 



( > 

( Print GRa 



I rows/ line ) 



t Print 6RB screen 4 rows/line ) 



: OJRSOR 

8 O DO 

CURSOR-ADDR 

DUP ce 

255 XOR 
SWAP C! 
I LOOP ; 



> 



< For all 8 lines* of char ) 

( Get address of graph cursor 

( Get graphics byte ) 

( Invert value ) 

( Set back in memory ) 



SCR « 4B 

O ( TEXT/LABEL CURSOR MOVEMENT ) 



2 : C-RIBHT 

3 CURSOR 

4 CURSOR-X 

5 DUP 39 > 
a CURSOR-X 
7 CURSOR ; 



IF DROP O ENDIF 



C-LEFT 
CURSOR 

CURSOR-X e 1 - 
DUP O < IF DROP 39 ENDIF 
CURSOR-X ! 
CURSOR ; 



( ) 

( Toggel cursor to original ) 
( Move to the right 1 char ) 

< Wraparound if necessary ) 
( Save new position ) 

( Set the new cursor position 

( > 

< Toggel cursor to original ) 
( Move to the left 1 char ) 

t Wraparound if necessary > 
( Save new position ) 
( Set the new i 
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The Cheap Assembler includes 

unlimited length labels, free field 
programming, two-pass RAM/disk-based 
asssembly, ten-command text editor, 
interactive operation, tutorial manual, 
and demonstration routines. APPLE II + , 
48K, DOS 3.3 required. Send $20.00 plus 
$4.00 PSlH to: Thunder Software, P.O. 
Box 31501, Houston, TX 77231, 
(713) 728-5501. 

Payroll Compatible with 64K Apple 
computers. Features; 100 employees per 
disk, time-card adding, automatic 
overtime, user-changeable tax tables, five 
miscellaneous deductions — fixed or 
percentage amounts, tips, automatic 
printing of checks, W-2 forms, and 
reports. Bill Martin, 6485 Diana Drive 
#2, Poland, OH 44514, (216) 757-2143. 

Digitizer/Graphics Tablet the 

HELPING HAND — more than just a 
drawing device. More versatile than 
paddles or joysticks. Drawing board is 
16" X 20" and includes two function 
keys. Connects to the 9-pin game port of 
VIC-20, C64, Atari, TI, etc. $44.50. 
Persimmon Peripherals, Route 2, Box 
2306A-MI, Claytin, GA 30525. 

Peripherals for the VIC-20 and C64 

Light pen model BR2064, very accurate 
readings in vertical and horizontal, push- 
button switch, excellent documentation 
and software listings included. $26.95. 
5 IK plus expansion memory expands 
VIC-20 to 56K RAM, assembled and 
tested. Excellent documentation. 
$140.00. Miami Valley Micro Systems, 
3341 Sheffield Rd., West Carrollton, 
OH 45449. 

OS! » Affordable DBM b&w File 
Master runs under OS65D V3.3. 32K 
RAM minimum. Features: user and/ or 
predefined files w/codes, formatted 
viewing and inputting, find, edit, delete, 
and page. Multiple dumps. Only $55.00. 
Label printer add $25.00, report generator 
add $25.00, manual only $10.00. For 
more information contact: Bunin & 
Ward Computer Services, P.O. Box 895, 
Church Street Sta., New York, NY 
10008, (212) 434-5760. 
VIC-20 Plug-Ins Reset Switch, uses the 
serial port — $5.00. Amplifier Adapter 
Cable, uses the audio/video port — 
$10.00. Send check or money order to: 
DLW Co., Box 485, Cupertino, CA 
95015. 

Attention Software Vendors Expand 
your market! Your BASIC programs, 8K 
or smaller, will run on OSI CIP, or C4P. 
I will translate your program for 
either /both machines on a fee basis. 
Bruce Showalter, 857 Cedar, Abilene, TX 
79601. 

Apple Software Leam Applesoft 
programming, use of the disk drive, 
graphics, etc. Each learning package 
includes two disks and instructional 
tutorial manual. The Apple's Core — 
$49.95. Part II: The Seed — $59.95. Free 
biochme. The Professor, P.O. Box 30 IM, 
Swanton, VT 05488, (514) 747-9130. 
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SCR 
O 

1 

2 

3 

4 

5 

6 

7 

8 

9 

lO 

11 

12 

13 

14 

15 



# 49 
( TEXT /LABEL CURSOR MOVEMENT ) 

: C-UP < 

CURSOR ( 

CURSOR-Y e 1 - < 

DUP O < IF DROP 152 ENDIF < 

CURSOR-Y ! < 

CURSOR ; ( 

: C-DOWN < 

CURSOR < 

CURSOR-Y e 1 + < 

DUP 152 > IF DROP O ENDIF < 

CURSOR-Y 1 < 

CURSOR S ( 



) 

Toggel cursor to original > 
Move up one display line > 
Wraparound if necessary ) 
Save the new position ) 
Set the new cursor position 



Toggel cursor to original > 
Move down one display line > 
Wraparound i-f necessary ) 
Save the new position ) 
Set the new cursor position > 



SCR 
O 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



tt 50 

( TEXT/LABEL CURSOR MOVEMENT ) 

: C-RETURN 
CURSOR 

CURSOR-Y 6 8+ 
DUP 152 > IF DROP ENDIF 
CURSOR-Y ! 
CURSOR i 

--> 



Turn off current cursor ) 

Move down 8 rows > 

Wrap around ) 

Save new value ) 

Turn on current cursor ) 



SCR « 51 

< PUT ATARI CHAR ON GRAPHICS 8 

1 ' SHOW 

2 ASC I I - >ROM CURSDR-ADDR 

3 8 O DO 

4 OVER I + ce 

5 INVERSE e IF 

6 255 XOR 

7 ENDIF 

8 TEXT/LABEL 6 IF 

9 OVER I 40 * + ce 

10 255 XOR OR 

11 ENDIF 

12 OVER I 40 * + C! 

13 LOOP 

14 DROP DROP 

15 CURSOR C-RIGHT ; — > 



< ascii ) 

( Bet ROM and cursor addr ) 

< For all 8 char lines ) 
( Get a display byte > 

( If INVERSE flag on ) 

< Invert screen data ) 

( If TEXT mode ) 

< Get the current video line ) 

( Remove cursor, add ROM line ) 

< Move text char to screen ) 

< Drop ROM and screen addr ) 

< Move to next video position ) 



SCR 
O 
1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



# 52 

( CASE STATEMENT BY DR. C. E. EAKER > 
( FROM FORTH DIMENSION, VOL II, NO- 3, PP. 37-40 ) 

: DOCASE 7C0MP CSP & !CSP 4 ; IMMEDIATE 

: CASE 4 7PAIRS COMPILE OVER COMPILE « COMPILE OBRANCH 

HERE O , COMPILE DROP 5 i IMMEDIATE 
: ENDCASE 5 7PAIRS COMPILE BRANCH HERE O , 

SWAP 2 C COMPILE 3 ENDIF 4 ; IMMEDIATE 
: ENDCASES 4 7PAIRS COMPILE DROP 

BEGIN SPe CSP e = 0= WHILE 
2 C COMPILED ENDIF REPEAT 

CSP ! ; IMMEDIATE 



O VARIABLE C-FLA6 



( Stop flag for TEXT/LABEL ) 
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SCR 
O 

1 

2 

3 

4 

5 

6 

7 

8 

7 

10 

11 

12 

13 

14 

15 



OVERLAY TEXT UNTIL <ESC> ) 

TEXT 

O C-FLAG ! 

CURSOR 

BEGIN 

KEY DOCASE 

31 CASE 

30 CASE 

28 CASE 

29 CASE 
27 CASE 1 

155 CASE 

DUP SHOW 

ENDCASES 
C-FLA6 e UNTIL 
CURSOR ; 



1 TEXT/LABEL ! 



C-RI6HT ENDCASE 
C-LEFT ENDCASE 
C-UP ENDCASE 
C-DOWN ENDCASE 
C-FLAG ! ENDCASE 
C-RETURN ENDCASE 



) 

Init to no quit, set to TEXT ) 
Initialize the Cursor ) 
Loop until <ESC> pressed ) 
Do case upon input key ) 
Atari right arrow ) 

) 

) 

) 



( 
( 
( 
( 
( 
< 

< Atari left arrow 
( Atari up arrow 
( Atari down arrow 

< Atari ESC key > 



< Else put on screen i-f can 

( Do until ESC pressed > 
( Reset final cursor ) 



SCR 
O 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



REPLACE TEXT UNTIL <ESC> ) 
LABEL 



O C-FLAB ! 

CURSOR 

BEGIN 

KEY DOCASE 

31 CASE 

30 CASE 

28 CASE 

29 CASE 
27 CASE 1 

155 CASE 

DUP SHOW 

ENDCASES 
C-FLAG e UNTIL 
CURSOR ; 



O TEXT/LABEL 



( ) 

( Init to no quit, set LABEL 

( Initialize the cursor ) 

( Loop until <ESC> pressed ) 



C-RIGHT ENDCASE 
C-LEFT ENDCASE 
C~UP ENDCASE 
C-DOWN ENDCASE 
C-FLAG ! ENDCASE 
C-RETURN ENDCASE 



Do case upon input key ) 



Atari right arrow 
Atari le-ft arrow 



( Atari up 

( Atari down 

( Atari ESC key ) 



< Else put on screen if can ) 

< Do until ESC pressed ) 
( Reset final cursor ) 



SCR 
O 
1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 



# 55 

( PUT A BORDER AROUND THE GRAPHICS NOTEPAD ) 



BORDER 



O PLOT 

319 DRAW 

319 159 DRAW 

O 159 DRAW 

O O DRAW 



( ) 

< Start in upper left corner ) 
( Draw counter clock wise ) 



SCR # 56 

O C SAVE AND RESTORE SCREEN 

1 

2 O VARIABLE WORKSPACE-BUF 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



SAVE-SCREEN 
SCREEN 

WORKSPACE-BUF 
6400 
CMOVE ; 

RESTORE-SCREEN 
WORKSPACE-BUF 
SCREEN 
6400 
CMOVE ; 



— REQUIRES 6400 BYTES ) 

6398 ALLOT < Image working space ) 

( ) 

( From the GR-8 screen mem ) 
( To the working space ) 
( 160 rows X 40 bytes each ) 
( Move the image to mem ) 

( ) 

( From the working space ) 

( To screen memory ) 

( 160 rows X 40 bytes each ) 

( Hove the mem to image ) 



5S 
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PERSONALIZED 
COMPUTER PAPER 

Printed with your name, club, 
anything. Paper is white 20# 
stock and fits all printers 
using GVsxl 1 continuous pa- 
per [8^2x1 1 when detached]. 
500 sheets S14.95, 
1000 sheets S24.95. 
We pay shipping. Texas 
orders add 51^2% tax. Select 
ink color: red, blue, brown, 
gray, or canary. Specify 
nanne[s] up to 30 letters & 
spaces. Enclose check or 
money order. No COD's. 
Allow 3 weeks. Faster de- 
livery with M/C, Visa phone 
orders. Write or phone 
Personalized Computer 
Paper D, Box 20539/San 
Antonio, Tx. 78220/ [512] 
227-0585. 



CP/M^ 

FOR YOUR COMMODORE^ C-64 




• Run All CPM® Formated Software 

• Supports 5J^" or 8" Disk Drives 

• Z-80, Disk and DMA Controller on 
Interface Card 

• Plugs into tfie Connmodore 64® Expansion 
Port 

• Uses Soft Sectored IBM 5%" and 8" Format 
Disk Drives 

Interface Card CQQ^ 

with 8" Disk Drive Ox7^7 

Interface Card ylQQ^ 

with 5V/ Disk Drive H-^TO 

Interface Card QAQ^'^ 

without Disk Drive vJT'i? 

® Commodore 64 is a registered trademark of 

Commodore Business Machines, Inc. 
®CPIM is a registered trademark of Digital Research, Inc. 

To Order 

Phone (913) 827-0629 
825 N. 5th Street 
ENGINEERING, INC. Salina, Kansas 67401 
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-Directory Menu- 

f or the 
Color Computer 

by Steve Kronschnabel and Phil Daley 



The CoCo version of the menu 
program offers a choice of a 
directory menu or a directory 
backup onto the unused portion of 
track 17. This is helpful since TRS-80 
DOS is noted for occasionally clobber- 
ing the directory sectors and essentially 
ruining the entire disk. With this pro- 
gram it is possible to back up your 
directory whenever you want and 
restore it to its former state should a 
sector become damaged. This program 
will save up to 48 directory entries, 
enough for most full disks: you would 
have to have a great number of short 
programs to fit more than 48 on 
one disk. 

After it is determined whether you 
wish to back up the directory or run the 
menu program (line 30), lines 60-150 
read the directory and store the names 
of the entries in N$| ) and the exten- 
sions in E$| ). Lines 170-250 print out 
the directory names two across, then 
the program waits for a choice to run. 
All BASIC programs will work with 
this menu; machine-language programs 
may or may not work depending upon 
their load address. Among my collec- 
tion, EDTASM-i- works, while many 
games do not. 

Lines 370-400 determine whether the 
directory is to be saved or replaced due 
to disk crash. Lines 410-430 perform a 
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fail-safe prompt, in case of a mistake, 
because the replace will cause a loss of 
any programs saved since the last back- 
up. Lines 470-560 do the actual work. 
The same FOR-NEXT loop is used for 
saving or replacing the information. 



This program, although simple in 
concept, works great and will save your 
sanity if your disk system crashes. 
Also, the menu program can be added 
to your disk to make it easy for begin- 
ners to choose a program to run. 



Listing 1 






10 CLEAR2000:CLS 


320 LOADN$(A),R 




20 DIMN$(72),E$(72) 


330 LOADM N$(A) :EXEC 




30 PRINT@6'^,"raENU OR dIRECTORY" 


340 X$=STR$(X):X$=MID$(X$,2) 




40 A$=INKEy$:IFA$=""THEN40 


350 IFX<10THENX$="0"+X$ 




50 IFA$="D"THEN370 


360 X$=LEFT$(X$, 2): RETURN 




60 CLS:PRINT@6A, "reading directory" 


370 CLS5:PRINT@32/' SAVING OR 




70 F0RX=3T011 


rEPLACING DIRECTORY?" 




80 DSKI$0,17,X,A$,B$ 


380 A$=INKEY$:IFA$=""THEN380 




90 IFASC(A$)=255THENX=ll:GOTO150 


390 IFA$< > "S"ANDA$< > "R"THEN380 




100 C$=A$+LEFT$(B$a27) 


400 IFA$="S"THEN450 




110 F0RN=0T07 


410 CLS7:PRINT@64,"ARE YOU SURE THAT 


YOU WANT TO 


120 N$((X-3)^8+N)=MID$(C$,N*32+l,8) 


REPLACE THE DIRECTORY?" 




130 S$((X-3)*8+N)-MID$(C$,N*32+9,3) 


420 INPUT"yES OR nO? ";A$ 




140 NEXTN 


430 IFA$ <> "Y "THENCLS : END 




150 NEXTX 


440 X1=10:X2=0:GOT0460 




160 CLS : PRINTglO, "directory" 


450 X1=0:X2=10 




170 F0RX=0T072 


460 E=0 




180 Y=Y+1:A$="" 


470 F0RX=2T08 




190 IFASC(N$(X) )=255THENX=72:G0T0250 


480 DSKI$0,1V>X+X1,A$,B$ 




200 IFASC(N$(X))=0THENY=Y-1:G0T0250 


490 DSKO$0,17>X+X2,A$,B$ 




210 GOSUB340 


500 DSKI$0,1V.X+X2,C$,D$ 




220 PRINTX$" "N$(X)"."E$(X)" "; 


510 DSKI$0,1'?,X+X1,A$,B$ 




230 IFY/28=INT(Y/28)THENPRINT@480,""; : 


520 IFC$=A$ANDD$=B$THEN560 




INPUTA$:PRINT@32,""; 


530 E=E+1:IFE=1THEN470 




240 IFLEN(A$)<>0THEN280 


540 CLS5:PRINT@64/'T00 MANY READ OR WRITE ERRORS | 


250 NEXT 


CANNOT CONTINUE..." 




260 PRINT@480,""; 


550 END 




270 INPUTA$ : IFLEN ( A$ ) =0THENY=0 : GOTOI6O 


560 NEXTX 




280 A=VAL(A$) 


570 CLSlrEND 




290 IFE$(A)="BAS"THEN320 






300 IFE${A)="BIN"THEN330 




Mxao 


310 CLS:PRINT"CAN'T RUN THAT PROGRAM": END 
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Animated Graphics 

Routines 
fortlie6809 



by Craig Carmichael 



This versatile pacicage of reiated graphics subroutines 
displays moving animated figures, moving dots, and 
custom characters. 



Have you ever wanted to write a 
machine-language program that 
required moving graphics (such 
as an arcade-type game) and not known 
where to start? Faced with this prob- 
lem; I developed a set of general- 
purpose graphics subroutines that can 
be used for a wide variety of programs 
where moving graphics are required. 

These graphics routines operate in 
the Color Computer's G6R or G6C 
graphics modes but are easily adapted 
for other display modes or other com- 
puters. (I first developed them on a 
homemade computer.) 



Animated Graphics 

requires: 

6809 computer with memory- 
mapped grapiiics display sucli 
as CoCa 

No. 65 - October 1983 



The animated figures generated by 
these routines are eight bits (one byte) 
wide by "n" bits tall, as selected by the 
user. In mode G6R the byte will be 
divided into eight dots, while in G6C 
it will be divided into four double- 
width dots, each of which can assume 
four colors. 

All values necessary for printing the 
figures are stored at positive offsets 
from the "U" register — from 0,U to 
$D,U. Other information pertinent to 
the figure (e.g., its status, fuel, or score) 
may be stored at other offsets near the 
U register. To select different figures, 
simply move the U register. 

In addition to animated figures, 
there are routines for moving a single 
bit (for bullets) and for printing in 
specific columns to display numbers, 
letters, and custom characters while in 
graphics modes (score, fixed scen- 
ery, text). 

MICRO 



Speed is essential to moving 
graphics programs; a move of one 8x8 
character requires replacement of 32 
somewhat disordered bytes of video 
RAM with new data — in a short time. I 
move all my figures during the vertical 
blank period of the TV scan, which is 
indicated by the 6847' s FS* signal. 
That way, the figures are displayed 
clearly (without flickering or in- 
terference) once in each position 
through which they move. The 
available time is just over 4 
milliseconds. With a 3.579MHz CPU 
clock (Color Computer normal speed), 
these routines will move in this time: 
two 8x8 figures plus several bullets, 
three 8x7 figures, or one figure up 
to 8 X 26. 

If more figures are to be moved, I 
double their velocities and move them 
on alternate scans. The motion may 
not appear smooth if displays are up- 
dated less often, but one move per three 
or four scans may be acceptable if the 
velocity is low. There is no limit to the 
velocity a figure may have except its 
visual appearance on the screen. 

If a figure passes through scenery or 
other figures, it will change color as it 
crosses, but afterwards both the figure(s) 
and the scenery will be unchanged. 
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If any print extends off the right or 
bottom of the screen, the other end of 
the figure will be printed on the left or 
top of the screen. If a figure or bullet 
moves off any edge of the screen, it will 
reappear on the opposite edge. 

Descriptions of the Routines 

PRGR and PRGX 

These animated character 
print/ erase routines will print or erase 
a figure at any screen coordinate. The 
two routines are identical except that 
PRGR checks for collisions and PRGX 
doesn't; consequently PRGX runs 
faster. Both routines affect the X, Y, 
and D registers. 

The secret to the print/ erase feature 
is the use of exclusive-or between the 
figure and the current TV picture. The 
"1" bits in the shape table will remain 
I's if they are printed onto a blank (0) 
bit on the screen, but if they are printed 
onto a "1" bit, they will become a 0. 
Thus, the second time the character is 
printed into the same place, the screen 
is restored to its initial value. 

The collision checks also make use 
of this feature. If any "1" bits of the 
shape table become O's on the screen, a 
collision is registered, and "Z" in the 
CC register will be cleared at RTS, 
allowing tests by BEQ (no collision) 
and BNE (collision) instructions. 

It should be mentioned here that in 
four-color mode, a color with a bit pat- 
tern "01" (yellow or cyan) will never 
register a collision with a "10" bit pat- 
tern color (blue or magenta), since the 
"I" of one will always land on the ' '0' ' 
of the other. 



Notice that a collision will always 
be registered when erasing because the 
figure has "hit" itself. 

PRGX and PRGR actually print one 
bit position to the right of the specified 
position; you must allow for this when 
checking the specific screen position of 
a figure. 

MOVG and MOVC 

These routines move figures around 
the screen and change their animations 
after they have been printed once by 
PRGX or PRGR. MOVG is for two- 
color modes (G6R) and MOVC is for 
four-color modes (G6C). Their opera- 
tion sequence is: 

1. Erase present figure with PRGX. 

2. Add (two's complement) VVEL to 
VPOS and correct for off-screen posi- 
tion if necessary. 

3. Add HVEL to HPOS. In the case of 
MOVC, HPOS units will always be 
set to an odd number to maintain the 
figure's correct shape and color. 

4. Update PST to present animation. 

5. Print new figure with PRGR. 

6. Restore D, X, and Y, and return from 
subroutine. 

Make your initial collision checks 
after a MOVe. 

My method for finding what you've 
hit is to erase the figures that you could 
have hit, one at a time, then erase and 
reprint your figure. If you are no longer 
hitting anything, you've erased that 
figure with which you were in contact. 
If none of them check out, you must be 
contacting the inanimate play field. If 
anyone can find a shorter method, 
please write! 



Figure 1. 


Operands used by the routines, stored at positive offsets from the "U" 
register. 






Operands used by each routine 


OFFSET 


NAME 


IWOVG 
iVIOVC 


PRGR 
PRGX 


MOVB 


PRGB 


PRPX 
PRPXD 


0,U 
1,U 


VPOS -units 
-fraction 


X 
X 


X 


X 
X 


X 


X 


2,U 
3,U 


HPOS -units 

-fraction 


X 

X 


X 


X 
X 


X 


X 


4,U 
5,U 


VVEL -units 

-fraction 


X 
X 




X 
X 






6,U 
7,U 


HVEL -units 

-fraction 


X 
X 




X 
X 






8,U 


HEiGHT 


X 


X 






X 


9,U 


ANiMATiON 


X 


X 






X 


$A,U 
$B,U 


ZERO SHAPE TABLE 
(ZST) 


X 
X 








X 
X 


$c,u 

$D,U 


PRESENT SHAPE TABLE 
(PST) 


X 
X 


X 
X 
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PRGB 

This routine prints or erases a single 
bit on the screen instead of a graphics 
character, but otherwise it is the same 
in operation as PRGR. In addition to 
printing bullets, this print may be used 
as a building block where a print is 
built up one dot at a time. D and X 
registers are affected. 

MOVB 

This routine is similar to MOVG, 
except that it moves a single bit (the 
bullet) instead of an animated figure. 
As with MOVG or MOVC, don't forget 
to do an initial PRGB to print the bit. 

PRPX and PRPXD 

These prints ignore the three least 
significant bits of HPOS and thus print 
on byte boundaries in 32 distinct col- 
umns. They are also absolute prints, 
unlike the PRG s; the original value of 
the screen is replaced by the print's 
shape table. These prints always use 
the figure's current animation, unlike 
PRGR and PRGX, which can only up- 
date their animations with a MOVe. 

PRPX prints a normal 8 x "n" bit 
figure, while PRPXD prints a double 
wide 16 X "n" bit figure, with two 
bytes of shape table required for each 
line of height. 



SETT 

This subroutine is called by the 
other subroutines. It changes the coor- 
dinates into a screen memory location, 
and it forms a "shift multiplier," 
which moves bits from one to eight bit 
positions to the right, depending on 
their HPOS. 

Descriptions of the Operands Used 

VPOS |0,U-1,U) is the vertical posi- 
tion of the top of the figure. 0,U is the 
actual vertical position, from 00 at 
the top of the screen to $BF at the bot- 
tom. The MOVe routines apply a cor- 
rection factor to VPOS if the value 
exceeds $BF. 

1,U is the fractional component, 
the amount left to move before the 
figure moves up or down a line. It is 
used in conjunction with the fractional 
part of VVEL in MOVes to effect 
smooth motion at any given velocity. 

HPOS (2,U-3,U) is the horizontal 
position of the left side of the character 
from $00 at the left to $FF at the right. 
It is similar to VPOS, but without a cor- 
rection factor. 

(Continued on next page) 
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VVEL (4,U-5;U) is the two's com- 
plement vertical velocity, with integer 
and fractional components. 

A value of $0100 (or $FFOO| will 
move a character down (or up) exactly 
one bit position with each MOVe that 
is called. Smaller values will not move 
the figure every MOVe, while larger 
values will skip over some positions as 
the figure moves. 

HVEL (6,U-7,U) is the two's com- 
plement horizontal velocity, similar 
to VVEL. 

HEIGHT (8;U| is the height of 
figures at their tallest animation. For 
each line of height, a figure requires 
one byte of shape table. 

ANIMATION (9,U) is the number 
that determines the shape table that 
will be used at a figure's next MOVe, 
PRPX, or PRPXD. By changing this 
number, a figure may be shown snap- 
ping its jaws, with or without a sword, 
or facing different directions, etc. 

ZERO SHAPE TABLE (ZST, $A,U- 
$B,U) is the assigned pointer to the 
start of the figure's shape table(s). Shape 
tables must be consecutive and must 
all be the length, in bytes, of the 
HEIGHT number. 

PRESENT SHAPE TABLE (PST, 
$C,U-$D,U) is the pointer to the shape 
table selected by the animation 
number. It is set by the MOVes and 
PRPXes by the following equation: 

PST = ZST + (HEIGHT * ANIMATION) 

Thus, if a figure is five bits high and 
animation two is selected, then PST 
will point $A bytes past ZST, allowing 
five bytes for animation zero and five 
bytes for animation one. 



Variations to Suit... 

Different Display Memory Address 

Line 3670 of the program listing 
adds the upper byte of the starting ad- 
dress of the video display to the address 
obtained from the coordinates. The 
lower byte is assumed to be 0. Ex- 
ample: for display at $6800-$7FFF, use 
ADDA#$68. Also, lines 2050, 2280, 
3010, 3280, and 3900 must be CMPX 
(last byte of display memory), in this 
case, CMPX $7FFF. 

Shorter Height 

G6R and G6C both map $C0 (192) 
lines onto the screen. If your display 
mode maps fewer, or if you don' t want 
to use the whole screen, then change 
lines 2490 and 4090 to CMPA# 
No. 65 -October 1983 



(number of lines), and adjust the cor- 
rection factors in the lines following 
these. Lines 2050, 2280, 3010, 3280, 
and 3900 must be CMPX# (last byte of 
display), and lines 2090, 2300, 3050, 
3320, and 3920 are LEAX (-bytes of 
display memory), X. 

Shorter Width 

G6C and G6R both map $20 (32) 
bytes per line. If you want $10 bytes per 
line, the top of the SETT subroutine 
should be changed to LSLB, LSRA, 
RORB, LSRA, RORB, LSRA, RORB, 
LSRA, RORB. To properly convert the 
coordinates to a memory location. 
Lines 2455, 3735, and 4175 should in- 
clude an ANDA#7F before STD 2,U for 
HPOS correction and, finally, all LEAX 
20,X's must be changed to LEAX 10,X. 

If your display maps other than 
such nice even numbers of bytes per 
line, you'll have to use the general for- 
mula in SETT to convert the coor- 
dinates to a memory location: Loca- 
tion- (HPOS/8) + (VPOS * (bytes per 
line) + start of TV memory. HPOS cor- 
rection factors will have to be set up 
similar to the VPOS ones. Remember, 
these are the units of HPOS and VPOS 
— not the fractions. 

Final Words 

If you're not quite clear how it all 
fits yet, study the demonstration in the 



listing. It contains examples of all of 
the routines used in two-color mode. 
To try the four-color mode, change line 
330 to LDA #$E5 to set mode G6C, and 
change line 1400 to LBSR MOVC. The 
shapes won't look right since the tables 
were designed for G6R, but you'll see 
the idea. 

The "SYNC" instruction at line 
1300 is the wait for vertical blank. I've 
left the BASIC handling the interrupt; 
all it does is clear the interrupt 
and return. 

Once you have the program typed in 
be sure to save it, since running it will 
probably wipe out your source text. 
When you have it all working, delete 
the demo program, ORG the sub- 
routines at some convenient spot, and 
save the machine code on tape. Be sure 
to write down the addresses of the 
labels that start the routines. You can 
write your programs and use equates 
for the subroutine addresses and simply 
load in the subroutine package when 
you are ready to test. 

Now you're ready to write useful 
graphics programs without spending 
countless hours coaxing the bits to 
move themselves around on the screen 
as I have done. Good luck! 



You may contact Mr. Carmichael at 
820 Dunsmuir Road, Victoria, British 
Columbia, Canada V9A 5B7. 



Listing 1: Animated Graphics Routines and Demo 


» 




^ANIMATED GRAPHICS ROUTINES FOR THE 6809 

* 

*CRAIG CARMICHAEL. 

WITH DEMONSTRATION PROGRAM THAT CHECKS MOST OF THE 






^ROUTINES 
* 




3000 




* 
00190 


ORG $3000 






♦DEMONSTRATION PROGRAM FOR COLOR COMPUTER. 






♦PRINTS A 2 BYTE WIDE SHAPE, A SINGLE WIDE SHAPE, AND 






♦MOVES A BIRD 


AROUND WITH A JOYSTICK-BIRD FIRES UPWARD 






♦FIRST, SET UP GRAPHICS SCREEN TO G6R AT 0600-lDFF. | 


3000 lOCE 0400 


00250 DEMOl 


LDS #$400 ♦REMOVE STACK FROM SCREEN 


300A 8E 


FFD4 


00260 


LDX #$FFD4 ♦SET "SAM" CONTROLLER 


3007 A7 


83 


00270 DEM2 


STA ,— X 


3009 8C 


FFCO 


00280 


CMPX #$FFCO 


300C 22 


F9 


00290 


BHI DEM2 


300E A7 


03 


00300 


STA 3,X 


3010 A7 


05 


00310 


STA 5,X 


3012 A7 


07 


00320 


STA $07, X 


30U A7 


09 


00330 


STA $09, X 


3016 86 


F5 


00340 


LDA #$F5 ♦AND VDG 


3018 B7 


FF22 


00350 


STA >$FF22 






♦ENABLE V BLANK INTERRUPT ONLY TO CPU, ] 


301B 8E 


FF21 


00370 


LDX #$FF21 


301E 8D 


09 


00380 


BSR CLRINT 


3020 BE 


FFOl 


00390 


LDX #$FF01 


3023 8D 


04 


00400 


BSR CLRINT 


3025 6C 


02 


00410 


INC 2,X 


3027 20 


OD 


00420 


BRA CLRS 


3029 A6 


84 


00430 CLRINT 


LDA ,X «DISABLES 2 INT'S. 


302B 84 


FC 


00440 


ANDA #$FC (Continued on page 80) 
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Listing 1 


(continued) 


30D1 13 




01310 SINC SYNC 






302D A7 


84 


00450 STA ,X 


30D2 CE 


2720 


01320 LDU #$2720 






302F A6 


02 


00460 LDA 2,X 


30D5 6A 


4F 


01330 DEC $OF,U *FMP BIRD'S WINGS 






3031 84 


FC 


00470 ANDA #$FC 


30D7 26 


OB 


01340 BNE ' NOFLAP 






3033 A7 


02 


00480 STA 2,X 


30D9 86 


10 


01350 LDA #$10 HEVERY I6TH SCAN 






3035 39 




00490 RTS 


30DB A7 


4f 


OI36O STA $OF,U 










^^CLEAR TV SCREEN. 


30DD A6 


49 


01370 LDA 9,U 






3036 8E 


0600 


00510 CLRS LDX #$0600 


30DF 4C 




01380 INCA 






3039 6F 


80 


00520 MOREBY CLR ,X+ 


30E0 84 


03 


01390 ANDA #$03 






303B 8C 


IDFF 


00530 CMPX #$1DFF 


30E2 A7 


49 


01400 STA 9,U 






303E 23 


F9 


00540 BLS MOREBY 


30E4 17 


00A7 


01410 NOFLAP LBSR MOVG *M0VE BIRD 










*PRINT DOUBLE WIDTH FIGURE ON BYTE BOUNDARIES. 


30E7 CE 


2730 


01420 LDU #$2730 *P0INT AT BULLET 






3040 CE 


2700 


00560 DRAW WV #$2700 


30EA 6D 


4e 


01430 TST $0E,U ^flS THERE ONE? 






3043 CC 


1010 


00570 LDD #$1010 


30EC 27 


9F 


01440 BEQ LOOP 






3046 A7 


C4 


00580 STA ,U WPOS 


30EE 6A 


4E 


01450 DEC $0E,U *END OF RANGE? 






3048 E7 


42 


00590 STB 2,U *HPUti 


30F0 27 


09 


01460 BEQ ENDBUL 






304A CC 


1000 


00600 LDD #$1000 


30F2 17 


017F 


01470 LBSR MOVE *N0, MOVE IT 






304D ED 


48 


00610 STD 8,U ^HEIGHT AND ANIMATION 


30F5 27 


96 


01480 BEQ LOOP *HIT ANYTHING? 






304F 30 


8D OOAD 


00620 LEAX DUBLPX.PCR 


30F7 6F 


4E 


01490 CLR $0E,U *YES, END BULLET 






3053 AF 


4A 


00630 STX $0A,U *SHAPE TABLE 


30F9 20 


92 


01500 BRA LOOP 






3055 17 


00E4 


00640 LBSR PRPXD 


30FB 17 


0160 


01510 ENDBUL LBSR PRGB «ERASE BULLET 










» 


30FE 20 


8D 


01520 BRA LOOP 










*PRINT SINGLE WIDTH FIGURE ON BYTE BOUNDARIES. 


3100 


O3C0 


01530 DUBLPX FDB $03C0 *D0UBLE WIDE SHAPE TABLE 






3058 CE 


2710 


00670 LDU #$2710 


3102 


0C30 


01540 FDB $0C30 






305B CC 


40C0 


00680 LDD #$40C0 


3104 


1008 


01550 FDB $1008 






305E A7 


C4 


00690 STA ,U *VPOS 


3106 


2004 


01560 FDB $2004 






3060 E7 


42 


00700 STB 2,U *HP0S 


3108 


4002 


01570 FDB $4002 






3062 CC 


0800 


00710 LDD #$0800 


310A 


4002 


01580 FDB $4002 






3065 ED 


48 


00720 STD 8,U ^HEIGHT AND ANIMATION 


310C 


8001 


01590 FDB $8001 






3067 30 


8D 00B5 


00730 LEAX PIXLS,PCR 


310E 


8001 


01600 FDB $8001 






3O6B AF 


4a 


00740 STX $0A,U *SHAPE TABLE 


3110 


8001 


01610 FDB $8001 






3O6D 17 


OOFS 


00750 LBSR PRPX 


3112 


8001 


01620 FDB $8001 










^ 


3114 


4002 


01630 FDB $4002 










*PRINT THE BIRD 


3116 


4002 


01640 FDB $4002 






3070 CE 


2720 


00780 LDU #$2720 


3118 


2004 


01650 FDB $2004 






3073 CC 


6080 


00790 LDD #$6080 


311A 


1008 


01660 FDB $1008 






3076 A7 


C4 


00800 STA ,U *VP0S 


3 lie 


0C30 


01670 FDB $0C30 






3078 E7 


42 


00810 STB 2,U *HP0S 


311E 


03C0 


01680 FDB $03C0 






307A CC 


0500 


00820 LDD #$0500 


3120 


183C 


01690 PIXLS FDB $183C ^SINGLE WIDE SHAPE TABLE 






307D ED 


48 


00830 STD 8,U *HEIGHT AND ANIMATION 


3122 


7EFF 


01700 FDB $7EFF 






307F 30 


8D 00A5 


00840 T.FAX PXBIRD,PCR 


3124 


FF7E 


01710 FDB $FF7E 






3083 AF 


4A 


00850 STX $OA,U *ZER0 SHAPE TABLE 


3126 


3C18 


01720 FDB $3C18 




3085 AF 


4C 


00860 STX $0C,U ^PRESENT SHAPE TABLE 


3128 


E718 


01730 PXBIRD FDB $E718 *4 BIRD SHAPE TABLES 






3087 17 


0146 


00870 LBSR PRGX 


312A 


1818 


01740 FDB $1818 






3O8A 6F 


C8 IE 


00880 CLR $1E,U *N0 BULLET YET 


312C 


24 


01750 FCB $24 










*MAIN LOOP: GET BIRD'S MOVES FROM JOYSTICK, AND MOVE 


312D 


0066 


01760 FDB $0066 


■ 








*THE BIRD AROUND. TRY SHOOTING SOMETHING. 


312F 


9918 


01770 FDB $9918 










*READ JOYSTICKS INTO $015A-5D 


3131 


24 


01780 FCB $24 






3O8D AD 


9F AOOA 


00920 LOOP JSR [$A00A] 


3132 


0000 


01790 FDB $0000 










*HAKE V.R. JOYSTK INTO WEL. 


3134 


7E99 


01800 FDB $7E99 






3091 CE 


2720 


00940 LDU #$2720 


3136 


18 


01810 FCB $18 






3094 4F 




00950 CLRA 


3137 


0000 


01820 FDB $0000 






3095 F6 


015B 


00960 LDB >$015B 


3139 


183C 


01830 FDB $183C 






3098 58 




00970 LSLB 


313B 


DB 


01840 FCB $DB 






3099 58 




00980 LSLB 






Jt6809 ANIMATED GRAPHICS ROUTINES 






309A 83 


0080 


00990 SUBD #$0080 






« 






309D ED 


44 


01000 STD 4,U 
m.R, JOYSTK INTO HVEL. 






* BY CRAIG CARMICHAEL 
* 






309F 4F 
3OAO F6 




01020 CLRA 






^PARAMETERS FOR ALL ROUTINES ARE STORED AT POSITIVE 






015A 


01030 LDB >$015A 






^OFFSETS FROM "U". SEE TABLE IN TEXT. 




1 


30A3 58 




01040 LSLB 






* 






30A4 58 




01050 LSLB 






* 






30A5 83 
3OA8 ED 


0080 


01060 SUBD #$0080 






*PRPXD PRINTS "DOUBLE" WIDTH (I6 BIT) CHARACTER IN ONE 






46 


01070 STD 6,U 






*0F 32 COLUMNS. THE 3 LOWEST BITS OF HPOS ARE IGNORED. 




; 




*BULLET IN FLIGHT? 






*0RIGI0NAL CONTENTS OF THE LOCATION ARE LOST. 




\ 


3OAA CE 


2730 


01090 LDU #$2730 


313c 34 


36 


01960 PRPXD PSHS Y,X,D 






3OAD 6D 


4E 


01100 TST $0E,U 


313E 17 


OOFS 


01970 LBSR SETT 




1 


3OAF 26 


20 


OHIO BNE SINC 






*FIND CURRENT ANIMATION SHAPE TABLE, PUT IN Y. 










*N0 BULLET AT PRESENT. DOES BIRD FIRE ONE? 


3l4l A6 


49 


01990 LDA 9,U 






3OBI B6 


FFOO 


01130 LDA >$FF00 


3143 E6 


48 


02000 LDB 8,U 






30B4 85 


01 


01140 BITA #$01 

*YES, PRINT BULLET, USING BIRD'S CO-ORDINATES. 


3145 D7 
3147 58 


10 


02010 STB <$10 *GET HEIGHT INTO <$10 
02020 LSLB 






3OB6 26 


19 


01160 BNE SINC 


3148 3D 




02030 MUL 






3OB8 EC 


50 


01170 LDD -$10, U 


3149 E3 


4A 


02040 ADDD $0A,U 






30BA 4a 




01180 DECA 


314B IF 


02 


02050 TFR D,Y 




' 


3OBB ED 


04 


01190 STD ,U 






*PRINT LOOP. ADJUST X IF IT POINTS OFF SCREEN. 






3OBD EC 


52 


01200 LDD -$0E,U 


314D 8C 


IDFF 


02070 PPPP CKPX #$1DFF 






3OBF ED 


42 


01210 STD 2,U 


3150 25 


09 


02080 BLO OKAYD 






3OCI 6F 


46 


0122O CLR 6,U »HVEL=0 


3152 26 


03 


02090 BNE PASSDl 






3003 6F 


47 


01230 CLR 7,U 


3154 30 


88 20 


02100 LEAX $20, X »0FF CORNER CORRECTION 




I- 


30C5 CC 


FFOO 


01240 LDD #$FF00 


3157 30 


89 E800 


02110 PASSDl LEAX $E800,X *OFF BOTTOM CORRECTION 






3OC8 ED 


44 


01250 STD 4,U *WEL=-1(UP) 






*ST0RE NEXT BYTE OF SHAPE TABLE ON NEXT LINE OF PIXEL 






3OCA 17 


0191 


01260 LBSR PRGB 


315B EC 


Al 


02130 OKAYD LDD ,Y-H- 




i 






*BULLET TO FLY $40 SPACES. 


315D ED 


84 


02140 STD ,X 






3OCD 86 


40 


01280 LDA #$40 


315F 30 


88 20 


02150 LEAX $20, X *D0WN TO NEXT LINE 




1 
ll 

r 


3OCF A7 


4E 


01290 STA $0E,U 

♦WAIT FOR NEXT VERTICAL BLANK, THEN MOVE BIRD& BULLET. 


3162 OA 


10 


02160 DEC <$10 *MORE LINES? 

(Continued) 
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Listing 


1 (continued) 






3164 26 


E7 


02170 


BNE 


PPPP 


3166 35 


B6 


02180 


PULS 


PC,Y,X,D 






*PRINT SINGLE WIDTH FIGURE IN ONE OF 32 COLUMNS. 






*SAME COMMENTS APPLY AS FOR DOUBLE WIDTH. 


3168 34 


36 


02220 PRPX 


PSHS 


Y,X,D 


316A 17 


OOCC 


02230 


LBSR 


SETT 


316D A6 


49 


02240 


LDA 


9,U 


316F E6 


48 


02250 


LDB 


8,U 


3171 D7 


10 


02260 


STB 


<$10 


3173 3D 




02270 


MUL 




3174 E3 


4a 


02280 


ADDD 


?0A,U 


3176 IF 


02 


02290 


TFR 


D,Y 


3178 8C 


IDFF 


02300 PPPS 


CMPX 


#$1DFF 


317B 23 


04 


02310 


BLS 


OKAYS 


317D 30 


89 E800 


02320 


LEAX 


$E800,X 


3181 A6 


AG 


02330 OKAYS 


LDA 


.Y+ 


3183 A7 


84 


02340 


STA 


,x 


3185 30 


88 20 


02350 


LEAX 


$20, X 


3188 OA 


10 


02360 


DEC 


<$10 


318A 26 


EC 


02370 


BNE 


PPPS 


318C 35 


B6 


02380 


PULS 


PC,Y,X,D 






*MOVG MOVES 


A GRAPHICS CHARACTER BY ERASING THE 






^tCHARACTER, 


:alcuuting the new animation and 






^POSITION, AND PRINTING THE NEW CHARACTER THERE. | 






^COLLISIONS 


i^HE CHECKED. USE BEQ NOCOL, OR BNE COLISN. | 


318E 34 


36 


02440 MOVG 


PSHS 


Y,X,D 


3190 8D 


3E 


02450 


BSR 


PRGX JtERASE OLD CHARACTER 


3192 EC 


42 


02460 


LDD 


2,U *FIND NEW HOR POSN. 


3194 E3 


46 


02470 


ADDD 


6,U 


3196 ED 


42 


02480 


std 


2,U *ST0RE IT IN HPOS 


3198 EC 


C4 


02490 SAMECG 


LDD 


,U ^^FIND NEW VERT POSN. 


319A E3 


44 


02500 


ADDD 


4,U 


319C 81 


GO 


02510 


CMPA 


#$C0 *AND MAKE SURE ITS ON SCRN 


319E 25 


08 


02520 


BLO 


OKAYMG 


31A0 81 


EO 


02530 


CMPA 


#$E0 


31A2 24 


02 


02540 


BHS 


HEREMG 


31A4 80 


80 


02550 


SUBA 


#$80 


31A6 80 


40 


02560 HEREMG 


SUBA 


#$40 


31A8 ED 


C4 


02570 OKAYMG 
02580 


STD 


,U *AND STORE IN VPOS 






*FIND SHAPE TABLE FOR NEW ANIMATION. | 


31AA E6 


49 


02600 


LDB 


9,U 


31AC A6 


48 


02610 


LDA 


8,U 


31AE 3D 




02620 


MUL 




31AF E3 


4A 


02630 


ADDD 


$0A,U 


31B1 ED 


4C 


02640 


STD 


$0C,U 






*PRINT NEW CHARACTER WITH COLLISION CHECK, AND RETURN. | 


31B3 8D 


47 


02660 


BSR 


PRGR 


31B5 35 


B6 


02670 


PULS 


PC,Y,X,D 






*MOVC HAS THE SAME 


FUNCTION AS MOVG, BUT OPERATES IN 4 






*COLOR GRAPHICS MODE G6C (GM6) . COMMENTS FOR MOVG ALL | 






*APPLY HERE. 






31B7 34 


36 


02720 MOVC 


PSHS 


Y,X,D 


31B9 8D 


15 


02730 


BSR 


PRGX 


3 IBB EC 


42 


02740 


LDD 


2,U 


31BD E3 


46 


02750 


ADDD 


6,U 


31BF ED 


42 


02760 


STD 


2,U 






*SINCE COLOR 


MODES 


JSE 2 BITSAIOT, AND PRGR/X SHIFT 






*THE PRINT 1 


SPACE 


10 THE RIGHT, THE HPOS UNITS MUST 






^f ALWAYS BE AM ODD NUMBER. 


31C1 44 




02800 


LSRA 




31C2 25 


D4 


02810 


BCS 


SAMECG 


31C4 48 




02820 


LSLA 








*IT'S EVEN. IS MOVEMENT TO LEFT OR TO RIGHT? 


31C5 6D 


46 


02840 


TST 


6,U 


31C7 2A 


02 


02850 


BPL 


HEREMC 






*JUMP ANOTHEF 


SPACE 


LEFT OR RIGHT. 


31C9 80 


02 


02870 


SUBA 


#$02 


31CB 4C 




02880 HEREMC 


INCA 




31CC A7 


42 


02890 


STA 


2,U 






»FR0M HERE, SAME AS MOVG, SO GO THERE. j 


31CE 20 


C8 


02910 


BRA 


SAMECG 






*PRGX PRINTS 


OR ERASES AN 8 BIT WIDE BY "H" BITS TALL 






^GRAPHICS CHARACTER 


. THERE IS NO COLLISION CHECK. USED 






*IN G6R (GM7) 


THE FIGURE WILL BE 8 BITS WIDE BY "H" 






*BITS TALL. IN G6C 


(GM6) , IT WILL BE 4 DOUBLE WIDE 






^COLORED DOTE 


WIDE 


[NSTEAD OF 8 SINGLE DOTS. 


31D0 8D 


67 


02980 PRGX 


BSR 


SETT 


31D2 A6 


48 


02990 


IDA 


8,U 


31D4 97 


10 


03000 


,STA 


<$10 


31D6 lOAE 4C 


03010 


LDY ■ 


$0C,U 






*PRINT LOOP. 


MAKE SURE PRINT IS ON SCREEN. | 


31D9 8C 


IDFF 


03030 PPPPGX 


CMPX 


#$1DFF ,^ . J 

(Continued on next page) 




Let Unique Data Systems help you raise your sights on AIM 65 
applications with our versatile fannily of AIM support products. 

•Go for high quality with our ACE-100 Enclosure. It accom- 
modates the AIM 65 perfectly, without modification, and features 
easy access two board add-on space, plus a 3" x 5" x 1 7" and a 
4" X 5" X 15.5" area for power supplies and other com- 
ponents. $186.00. 

• Get high capability with Unique Data System's add-on boards. 
The UDS-100 Series Memory-l/0 boards add up to 16K bytes of 
RAM memory or up to 48K bytes ROM/PROM/EPROM to your 
Rockwell AIM 65. You also get 20 independently programmable 
parallel I/O lines with an additional user-dedicated 6522 VIA, two 
independent RS-232 channels with 16 switch-selectable baud 
rates (50 to 19.2K baud), and a large on-board prototyping area. 
Prices start at $259.00. 

• If you need to protect against RAM data loss, the UDS-100B of- 
fers an on-board battery and charger/switchover circuit. $296.00. 

• Heighten your AIM 65's communications range by adding the 
UDS-200 Modem board. It features full compatibility with Bell 
System 103 type modems and can be plugged directly into a 
home telephone jack via a permissive mode DAA. No need for a 
data jack or acoustic coupler. The UDS-200 also has software- 
selectable Autoanswer and Autodial capability with dial tone 
detector. The modem interfaces via the AIM 65 expansion bus, 
with the on-board UARTand baud rate generator eliminating the 
need for an RS-232 channel. $278.00. 

• The UDS-300 Wire Wrap board accepts all .300/.600/.900 IC 
sockets from 8 to 64 pins. Its features include an intermeshed 
power distribution system and dual 44-pin card edge connectors 
for bus and I/O signal connections. $45.00. 

• Get high performance with the ACE-1 00-07 compact 4" x 5" x 
1 .7" switching power supply delivering +5V @ 6A, +1 2V @ 1 A, 
and + 24V for the AIM printer. $1 1 8.00. 

Installation kits and other related accessories are also avail- 
able to implement your AIM expansion plans. Custom hard- 
ware design, programming, and assembled systems are also 
available. High quality, high capability, high performance, with 
high reliability. . . all from Unique Data Systems. Call or write 
for additional information. 

Unique Data Systems Inc. 
1600 Miraloma Avenue, Placentia, CA 92670 

(714)630-1430 
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323F 44 




03640 LSRA 




Listing 1 


(continued) | 


3240 56 




03650 RORB 




3 IDC 25 


09 


03040 BLO OKAYGX 


3241 44 




03660 LSRA 




31DE 26 


03 


03050 BNE PASTGX 


3242 56 




03670 RORB 




31E0 30 


88 20 


03060 LEAX $20, X 






itTHEN ADD $0600 TO THIS, SCREEN MEMORY IS AT 0600-lDFF 




31E3 30 


89 E800 


03070 PASTGX LEAX $E800,X 


3243 SB 


06 


03690 ADDA #$06 








»GET NEXT BYTE OF SHAPE TABLE, SHIFT IT RIGHT USING 


3245 IF 


01 


03700 TFR D,X 








*SHIFT MULTIPLIER AT <$11 






*N0W FORM SHIFT MPYER WITH 1 BIT SET, IN"A" AND IN<$11 




31E7 A6 


AO 


03100 OKAYGX LDA ,Y+ 


3247 E6 


42 


03720 LDB 2,U 




31E9 27 


09 


03110 BEQ ENDLNX 


3249 86 


80 


03730 LDA #$80 




31EB D6 


11 


03120 LDB <$11 


324B 54 




03740 LSRB 




31ED 3D 




03130 MUL 

^EXCLUSIVE OR DATA WITH SCREEN THEN PRINT IT. 


324C 24 
324E 44 


01 


03750 BCC SHFTl 
03760 LSRA 




31EE A8 


84 


03150 EORA ,X 


324F 54 




03770 SHFTl LSRB 




31F0 EB 


01 


03 160 EORB 1,X 


3250 24 


02 


03780 BCC SHFT2 




31F2 ED 


84 


03170 STD ,X 


3252 44 




03790 LSRA 




31F4 30 


88 20 


03180 ENDLNX LEAX $20, X *NEXT LINE DOUN ON TV 


3253 44 




03800 LSRA 




31F7 OA 


10 


03190 DEC <$10 


3254 54 




03810 SHFT2 LSRB 




31F9 26 


DE 


03200 BNE PPPPGX *MORE LINES? 


3255 24 


04 


03820 BCC SHFT4 




31FB 39 




03210 RTS 

*PRGR IS THE SAME AS PRGX EXCEPT IT CHECKS FOR 
*C0LLISI0NS. THE SAME COMMENTS APPLY. 


3257 44 

3258 44 

3259 44 
325A 44 




03830 LSRA 
Q3840 LSRA 
03B5O LSRA 
03860 LSRA 




31FC 8D 


3B 


03250 PRGR BSR SETT 


325B 97 


11 


03870 SHFT4 STA <$11 




31FE A6 


48 


03260 LDA 8,U 


325D 39 




03880 RTS 




3200 97 


10 


03270 STA <$10 






^ 




3202 lOAJ 


40 


03280 LDY $0C,U 






*PRGB PRINTS /ERASES A SINGLE BIT ON THE SCREEN. 




3205 OF 


13 


03290 CLR <$13 


325E 8D 


D9 


03910 PRGB BSR SETT 




3207 8C 


IDFF 


03300 PPPPGR CMPX #$1DFF 


3260 8C 


IDFF 


03920 CMPX #$1DFF *CHECK FOR OFF SCREEN 




320A 25 


09 


03310 BLO OKAYGR 


3263 23 


04 


03930 BLS OKAYGB 




320C 26 


03 


03320 BNE PASTGR 


3265 30 


89 E800 


03940 LEAX $EB00,X 




320E 30 


88 20 


03330 LEAX $20, X 






*A=SHIFT MPYER=THE DOT ITSELF. PRINT IT. 




3211 30 


89 E800 


03340 PASTGR LEAX $E800,X 


3269 97 


14 


03960 OKAYGB STA <$l4 




3215 A6 


AO 


03350 OKAYGR LDA ,Y+ 


326B A8 


84 


03970 EORA ,X 




3217 27 


16 


03360 BEQ ENDLNR 


326D A7 


84 


03980 STA ,X 




3219 D6 


11 


03370 LDB <$11 


326F 94 


14 


03990 ANDA <$14 *CHECK FOR COLLISION 


1 


321B 3D 




03380 MUL 

SPRINT NEXT LINE, 


3271 91 
3273 39 


14 


04000 CMPA <$14 
04010 RTS 


1 


321C DD 


14 


03400 STD <$14 






^ 




321E A8 


84 


03410 EORA ,X 






*MOVB MOVES A GRAPHICS BIT BY ERASING THE OLD BIT, 




3220 EB 


01 


03420 EORB 1,X 






^CALCULATING THE NEW LOCN, AND PRINTING A DOT THERE. 




3222 ED 


84 


03430 STD ,X 

itCOLLISION CHECK ONLY THE "1" BITS OF THE SHAPE TABLE, 






*IF USED IN G6R (GM7) , 

*THE DOT WILL CHANGE COLOR AS IT MOVES HORIZONTALLY. 




3224 94 


14 


03450 ANDA <$14 


3274 34 


16 


04070 MOVE PSHS X,D 




3226 d4 


15 


03460 ANDB <$15 


3276 8D 


E6 


04080 BSR PRGB *ERASE OLD DOT 




3228 1093 14 


03470 CMPD < $14 


3278 EC 


C4 


04090 LDD ,U *FIND NEW VPOS 




322B 27 


02 


03480 BEQ ENDLNR 


327A E3 


44 


04100 ADDD 4,U 








*AND DEC <$13 IF THERE HAS BEEN A COLLISION. 


327C 81 


CO 


04110 CMPA #$C0 *MAKE SURE ITS ON SCREEN 




322D OA 


13 


03500 DEC <$13 


327E 25 


08 


04120 BLO OKAYMD 




322F 30 


88 20 


03510 ENDLNR LEAX $20, X 


3280 81 


EO 


04130 CMPA mo 




3232 OA 


10 


03520 DEC <$10 


3282 24 


02 


04140 BHS GOBOTM 




3234 26 


Dl 


03530 BNE PPPPGR 


3284 80 


80 


04150 SUBA #$80 


I 






*SET "Z"=0/1 IF COLLISION/NO COLLISION, AND RETURN 


3286 80 


40 


04160 GOBOTM SUBA #$40 




3236 OD 


13 


03550 TST <$13 


3288 ED 


C4 


04170 OKAYMD STD ,U 




3238 39 




03560 RTS 


328A EC 


42 


04180 IDD 2,U *FIND NEW HPOS 








* 


328C E3 


46 


04190 ADDD 6,U 








*SET-UP TO PRINT GRAPHICS. 


328E ED 


42 


04200 STD 2,U 


1 






*FIRST, CHANGE CO-ORDINATES TO MEMORY LOC'N 0000-17FF. 


3290 8D 


CC 


04210 BSR PRGB SPRINT NEW DOT AND RETURN. 


jl 


3239 A6 


04 


O36OO SETT LDA ,U 


3292 35 


96 


04220 PULS PC,X,D 


jj 


323B E6 


42 


03610 LDB 2,U 






04230 END 




323D 44 




03620 LSRA 






/MOW 




323E 56 




03630 RORB 








ill 




^^%^ 
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Powerful — Economical — Professional 

Peripherals for your Apple 11* 



. £450.00 
A/D 1 2-Bit. 1 6 Channel ad - 1 21 602 

• Simple Software Selection of Channels 

• Range ±10, ±5. ±2.5. +5, +10 

• High-Speed 25 M Sec. Conversion 

• Ftill Software Support — Disk or Prom 

• Adjustable Bipolar Reference 



Ultra Rom Board/Editor $1 90.00 apb - 102 

• Powerful G.P.L.E. [Global Program Line Editor] built in 

• Includes: Search and Replace — Insert and Delete — and much more 

• Edit programs 2 to 5 times faster 

• 32K of Bank Switchable ROM Space 

• Totally Transparent - Remove or Reload with a few keystrokes - without disk! 

• Extensive Macro Table eliminates multiple keystrokes for common operations 

• Useful Ampersand [&] Utilities all in one place 

• Applesoft* Extensions including "IF, THEN, ELSE" 

• Support for other HOLLYWOOD HARDWARE Products in Rom 



6842 Valjean Avenue, Van Nuys, California 91406 (213) 989-1204 ^Trademarks of Apple Computer Inc 
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Skylcs Electric Works 

231 E South Whisman Road 
Mountain View, CA 94041 
(415)965-1735 



AVAILABLE NOW! Call 800 227-9998** 
For the name of your nearest dealer, 
detailed information or a catalog of products. 

**California, Canada and Alaska, please call (415) 965-1735. 



In Europe: SUPERSOFT, Winchester House, Canning Road, Harrow Wealdstone, England HA3 7SJ, Tel. 01 861 1166 
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MODEIVIS 

HAYES 

Smart $219.00 

Smart 1 200 (1 200 Baud) ... $51 9.00 

Chronograph $199.00 

Micromodem 100 $309.00 

Micromodem II $279.00 

Micromodem H (with term) . . . $299.00 

Smart Com II S99.00 

Smart 1 200B $469. GO 

NOVATION 

J-Cat $119.00 

Cat $144.00 

D-Cat $159.O0 

103 Smart Cat $189.00 

Apple Cat It S279.00 

103/212 Smart Cat $439. OO 

21 2 Apple Cat 11 $609.00 

Apple Cat II 21 2 Upgrade. . . .$309.00 
ANCHOR 

Mark I (RS-232) $79.00 

Mark II (Atari) $79.00 

Mark HI (T. I. 99) $109.00 

Mark IV (CBM-PET) $1 25.00 

Mark V (Osborne) $95.00 

Mark VI (IBM-PC) $1 79.00 

Mark VII (Auto Ans/Auto Dial) ... $1 1 9.00 

Mark VIM $269.00 

TRS-80 Color Compute; $99.00 

9 Volt Power Supply ...' $9.00 

ZENITH 
ZT1 Terminal $369.00 



MONITORS 

AMDEK 

300G $149.00 

300A $159.00 

310A $169.00 

Color I $279-00 

Color I plus $299-0O 

Color II $399.00 

Color IN $349.00 

Color IV $999.00 




HEWLETT 
PACKARD 



HP 41 CV. . . S209.00 

HP 7S S743.00 

HP41C $146.00 

HP10C $52.00 

HP11C $69.00 

HP12C $92.00 

HP 15C $92. OO 

HP 16C $92.00 

For HP41/41CV 

HPIL Module $99.00 

HF (L Cassette or Printer $359.00 

Cird Reader ...$144.00 

Extended Functions Module . . . $64.00 
Time Module $64. OO 



Pi 1 

Pi 2, 12" G 

Pi 3. 12" A 

Pi4. 9" A 

1400 Color 

ZENITH 

ZVM 122A 

ZVM 123G 

BMC 

12" Green 

9191 13" Color 

TAXAN 

12 N Green 

1 2 A Amber 

PANASONIC 
TR 120 Hi-res. Green .... 
CT 160 Dual Mode Colof 
NEC 

JB 1260 

JB 1201 

JG 1212 

JC 12-202 

JC 1203 

C30RILI_A 
12 ' Green 



..$99.00 
$119.00 
$159.00 
$139.00 
$299.00 

$1 19-00 
$109-00 



..$85.00 
$299.00 

$129.00 
$139.00 

$149.00 
$279.00 

$119.00 
$149.00 
$299.00 
$299.00 
$469.00 



EPSON 
COMPUTERS 

QX-10 CALL 

HX-20 CALL 




Ti-4a 

COMPACT 
COMPUTER 



PERCOIVI/TANOON 
DRIVE 

5V-." 320K Floppy $279.00 

Smeghardw/controller -.-$1495.00 
1 meg hard w/controller. - . $1 795.00 
1 5 meg hard w/controller. . . $21 95.00 
20 meg hard w/controNer. . . $2595.00 
AMOEK 

31 OA Amber Monitor $169.00 

DXY 100 Plotter $599.00 

Color II $399.00 

AST RESEARCH. INC 

S)XPAkPLUS.64K- 

clock, serial, parallel $299.00 

cloch,serlal,paranel,gameport..$339.00 
MEGAPLUAn.64K- 

clock, serial, parallel $339.00 

clock, seriaLparallel,gameport.. $379.00 
clock,2 serial paraUel.gameport.$41 9.00 
COMBOPLUSII,64K- 

clock. serial, parallel $299.00 

l/OPLUSII- 

clock, serial, parallel $1 45.00 

clock.serial,paraltel,gameport., $179.00 
PROFESSIONAL SOFTWARE 
PC PlusWord Processing ...$319.00 

MICRO PRO 

Word Star/Mail Merge $31 9.00 

InfoStar .$299.00 

Spell Star $1 5900 

CallStar $159.00 

MICROSTUF 
Crosstalk $1 39.00 

MICROSOFT 

Multiplan $199.00 

ASHTON-TATE 

DBase II $419.00 

IU5 

EasyWriter M $209.00 

EasySpeller $1 29.00 

EasyFiler $1 29.00 

CONTIIMEIMTAL SaFT\A/ARE 

1st Class Mail/Form Letter ...$89.00 

The Home Accountant Plus ... $1 09.00 

SYNAPSE 

File Manager $1 19.00 

LOTUS 

123 $369. OO 

PFS 
APPLE ISM 

File $89.00 $99.00 

Report $89.00 $89.00 

Graph $89,00 $99.00 

Write n/a $99.00 

KRAFT 

IBM Joystick $55.00 

IBM Paddles $39.00 

QUAD RAM CALL 




TIMEX 
SINCLAIR *^Q^^ 
1000 

1 6K Memory $44.95 

2040 Printer $99.95 

Vu-Calc $17.95 

Mindware Printer $99.00 




PC-150aA S169.aO 
Pocket Computer 

PC-1 B50A SBS.OO 

1 25 Printer/Micro Cassette . . .$1 29.00 
1 50 Printer/Plotter/Cassette. . . $1 72.00 

152 Cassette Recorder $62.00 

155 8K RAM $94.00 

1 58 8K RAM Battery $1 29.0O 

161 16KRAM $139.00 



MBC-555PC $795.00 

MBC 1100 $1599.00 

MBC 1150 $2099.00 

MBC 1 200 $1 999. OO 

MBC 1250 $2399.00 

FDD 32OO-320K Drive $399.00 

FDD6400-64K Drive $499. OO 

PR 5500 Printer $699.00 

PRINTERS 

EPSON 

MX80 FT, MX100. RX80, 

FX80, FX1 00 CALL 

OKI DATA 

82. 83. 84, 92, 93 CALL 

STAR 

STX80 $169.00 

Gemini 10X $299.00 

Gemini 15 $479.00 

Serial Board $75.00 

SMITH CORONA 

-fp-1 $469.00 

TP-2 CALL 

Tractor Feed $11 9.00 

C.ITOH 

Gorilla $209.00 

Prowriter 851 OP $379.00 

Prowriter 1 550P $689.0O 

Starwriter F10-40P $1149.00 

Printmaster F10-55P $1 569.00 

Tractor Feed $1 99.00 

DAI SYWR ITER 
2000 Letter Quality. ...... .$1149.00 

2500. ..NEW CALL 

Tractor Feed S1 09.00 

DIABLO 

620 $949. OO 

630 $1769.00 

IDS 

Call for ALL Configurations on 

IDS PRISM PRINTERS. 

NEC 

8023 $399.00 

8025 $729.00 

3510 $1449.00 

3530 $1499.00 

3550 - $1799-00 

771 0/7730 41 999.00 

BMC 

401 Letter Quality $699.00 

BROTHER 

Comriter II Printer $499.00 

CABLES S. COIMNECTIOIMS . 

Atari to Parallel $29.00 

Atari to Serial $29.00 

Apple to Parallel $69.00 

Apple to Parallel/Graphics. . . $99.00 

Apple to Serial $89.00 

I BM to Parallel $35.00 

IBM to Serial $29.00 

Parallel to Parallel $29.00 

Serial to Serial $29.00 

Grappler Plus $129.00 

PKASO $1 39 .00 

Atari to Modem Cable $29.00 

CBM 64 to IEEE Board $79.00 

Apple 80"Cotumn Card $159.00 

CBM Pet to Parallel $99.00 

CBM Pet to Serial $89.00 

PAPER SUPPLIES 

1 or2"Address LabelsCTract Feed)-.$9.95 
1 5" Report Paperrract Feed) . $24.95 
BVi'BInk Wht PaperfTract. Feed). .$1 9.95 



mmmmmm 
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COMPUTER MAIL ORDER 



FRANKLIN 



CALL 

ACE iboo Color Computer 
ACE 1 1 00 Drive & Cover for ACE 1 000 
ACE 1200 Computer with Disk Drive 
ACE PRO PACK: 

ACE 1000, Disk Drive, 

80 Column Card, ACECalc & 

ACEWriter II 

IVIICRO-SCI 

Apple St Franklin 

A2 $249.00 

A40 $349.00 

A70 $459.00 

Ca Controller $79.00 

C47 Controller $89.00 

RANA 

Elite I (Apple/Franklin) $279.00 

Elite II (Apple/Franklin) CALL 

Elite IK (Apple/Franklin) CALL 

VISICORP 
FOR APPLE, IBM & FRANKLIN 

Visidex $189.00 

Visifile $189.00 

Visiplot $159.00 

Visiterm $89.00 

Visitrend/Plot $229.00 

VisiSchedule $229.00 

Desktop Plan $1 89.00 

Visicalc {Apple, IBM. CBM). . , $1 79.00 

Visicalc 4 (IBM) $209.00 

Visicalc Advanced lie $309.00 

Stretch Calc $89.00 

Visicorp prices for IBM may vary slightly. 
LJK 

Letter Perfect Apple $1 09.00 

Data Perfect Apple $75.00 

AXLON 
Apple/Franklin 128K Ram ...$299.00 
Apple/Franklin Ram Disk ... $729.00 

MPC 
Bubdisk (1 28K Non Volitarel . . . $649.00 

JOYSTICKS 

WICO 

Joystick $21 .95 

Famous Red Ball $23.95 

Power Grip $21 .95 

Three-way Deluxe $22.95 

Atari/VIC Trackball $34.95 

Apple Trackball $59.95 

KRAFT 

Atari Single Fire $13.00 

Atari Switch Hitter S16.00 

Apple Joystick $44.00 

Apple Paddles $39.00 



APPLE/FRAN KLIN 

1 . Choplifter $27.00 

2. Bank Street Writer $55.00 

3. PFS: File $89.00 

4. Visicalc $1 79.00 

5. Home Accountant $55.00 

6. Zaxxon $29.00 

7. Most Amazing Thing $28.00 

B. Visifile $1 89.00 

9. Fathoms 40 $1 9.00 

10. Deadline $35.00 

11 . PFS: Report $89.00 

12.Zork III $29.00 

13. Frogger $24.00 

14. Pacemaker $24.00 

15. Snooper Troops #1 $32.00 

16. Delta Drawing $35.00 

17. Castle Wolfenstine $24.00 

18. Wayout $29.00 

19. Canyon Climber $1 9.00 

20. Bandits $26.00 



Qz. commodore 



CBIVI 
803S 



CBM64 ...SSI 9 

VIC SO ses 

CALL ON 
Executive 64 Por>table 

1 520 Color Printer/Plotter ... $1 69.00 
1525 80 Column Printer. ... $21 9.00 

1526 $319.00 

1 530 Datasette $69.00 

1 541 Single Disk Drive $249.00 

1600 VIC Modem $59.00 

1 650 AD/AA Modem $89.00 

1701 14" Color Monitor ....$249.00 

Pet 64 $569.00 

Pet 4032 $599. OO 

CBM 8032 $599. OO 

Super Pet $999.00 

B1 28-80 $769.00 

BX256-80 $969.00 

2031 $299.00 

4040 $699.00 

8050 $949.00 

8250 $1199.00 

9060 $1999.00 

9090 $2199.00 

4023 $379.00 

6400 $1399.00 

64K Upgrade $269.00 

Spell Master $149.00 

Z-Ram $549.00 

Silicon Office $749.00 

The Manager $209,00 

Soft Rom $129.00 

Jinsam CALL 

Call Result 64 $1 39. OO 

PROFESSIONAL 
SOFT\/V/ARE 

Word Pro 2 Plus $159.00 

Word Pro 3 Plus $189.00 

Word Pro 4 Plus $279. OO 

Word Pro 5 Plus $279.00 

InfoPro $179.00 

Administrator $399.00 

Power $79.00 

Word Pro 64 Plus $65.00 

CAROCO 
for VIC 20/6-4 

Light Pen $32.00 

Cassette Interlace $29.00 

Parallel Printer Interface $69.00 

3 Slot Expans. Interface (20). -.$32. 00 
6 Slot Expans. Interlace (20) . . . $79.00 

C.M.O. 

CBM 64 

1 . Word Pro 64 $65.00 

2. Jumpman..... $29. OO 

3. Gorf (20/64) $14.95 

4. lUlicrospec Data Base 64 . . . $69.00 

5. Logo 64 $39.00 

6. MicrospecGen. Ledger 64. . .$79.00 

7. Zorklll $29.00 

8. Frogger (64) $23.00 

9. Quick Brown Fox (20/64) . . . $49.00 

10. Shamus $29.00 

1 1 . Deadline. . . - $29.00 

12. Assembler 64 $14.95 

13. Zork 11 $29.00 

14. 3-D Man $14.00 

15. Protector $32.00 

16. Starcross $29.00 

17. Easy Mail 64 $14.95 

18. Grave Robber $1 1 .OO 

19. Wall Street $19.00 

20- Trash Man $32,00 



ATARI HOME GOMPUTEI 
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ATART 



ATARI 6QOXI $143 

ATARI BOOXL. $S69 

ATARI 1 SOOXL CALL 

ATARI 400 CALL 

ATARI SOO CALL 

1 01 Program Recorder $74.00 

1 02O4O Col. Printer/Plotter . . . $249.0O 

1025 80 Col. Printer $449.00 

1027 LetterQuality Printer . . .$299.00 

1050 Disk Drive $379.00 

1030DirectConnect Modem. . .CALL 

CX30 Paddles $12.00 

CX40 Joystick $8.00 

CX42 Remote Joystick CALL 

CX77 Touch Tablet $69.00 

CX80Trak Ball $49.00 

CX85 Keypad $1 05.00 

CX418 Home Manager $69.00 

CX488 Communicator II. ... $229.00 
KX7098 Atari Accountant ...$209.00 

KX71 01 Entertainer $69.00 

KX7102 Arcade Champ $75.00 



DISK DRIVES FOR ATARI 

AT88-S1 $369.00 

AT88-A1 $299.00 

AT8a-S2 $569.00 

AT88-S1 PD $469.00 

AT88-S2 PD $669.00 

ATSa-DDA $1 39.00 

AT44-S1 $579.00 

AT44-S2 $969.00 

TEXAS INSTRUMENTS DRIVE 

TX 99-S1 $349-00 

RANA 
1000 Atari Disk Drive $319.00 



ALIEN 

Atari Voice Box $1 19.00 

Apple Voice Box $1 49.00 

IVIEMORY BOARDS 

Axlon 32K Ram $59.00 

Axlon 48K Ram $99.00 

Axlon 1 28K Ram $299.00 

Intec 32K Board $59.00 

Intec 48K Board $85. OO 

Intec 64K Board (400 only) .. .$99.00 
Intec Real Time Clock $39.00 

oisK Gl cart holoers 

Flip-n-File 10 $4.00 

Flip-n-File 50 $1 9.00 

Flip-n-File 400/800 Cart $1 9.00 



FLOPPY DISKS 

MAXELL 

MD-1 $32.00 

MD-2 $44.00 

FD-1(8-) $40.00 

FD-2(8 " DS DD) $50-00 

ELEPHANT 

5V4-SSSD. $18.95 

5V4" SS DD $24.95 

5V4' DS DD $29.95 

VERBATUM 

5'A" SS DD $26.00 

5V4" DS DD $36.00 

HEAO 
Disk Head Cleaner $1 4.95 



TOP SO 

ATARI 

1 . Donkey Kong $39.00 

2. Zaxxon $29.00 

3. E.T. Phone Home $39.00 

4. Miner 2049er $3500 

5. Dig Dug $33.00 

6. Choplifter $29.00 

7. Donkey Kong, Jr $39.00 

8. Canyon Climber $25.00 

9. Snooper Troops #2 $34.00 

10- Word Wizard $59.00 

1 1 . Picnic Paranoia $34,00 

12. Jumpman $29.00 

13. Shamus $34.00 

14. Letter Perfect $1 09.00 

15. File Manager 800 $69.00 

16. Preppie $24.00 

17. Astro Chase $25.00 

18. Blade/Black Hole $27.00 

19. Pac Man $33.00 

20. Baja Buggies $25.00 



21 .Crush, Crumbled Chomp... $24. OO 

Wayout $27.00 

Zork II $29.00 

Visicalc $159.00 

Atari Writer $79.00 

Three Little Pigs $25. OO 

Upper ReachesofApshai . . .$16.00 

Starbowl Football $24.95 

Drelbs $26.00 

Protector $34. OO 

Frogger $25.00 

Lunar Leeper $24.00 

Wizard of Wor $34.00 

Kindercomp $21 .00 

Moon Shuttle $22.00 

Home Accountant $55.00 

Temple of Apshai $29.00 

Spell Wizard $39.00 

Nautilus $26-C 

. O'Riley's Mine $22.00 



f-800-255-8950 
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PRODUCTS from MICRO 



Revised edition now available! All new text added to the original atlas and gazetter... 

"What's Where in the Apple" 

A Complete Guide to the Apple Computer. 

















This revised edition of the famous Apple 
Atlas will: 

• provide you with more informa- 
tion on the Apple's memory 
than is available elsewhere 

• guide you with a numerical 
Atlas and an alphabetical 
Gazette — to over 2000 
memory locations of PEEKs, 
POKES and CALLs 



Get the most out of your Apple with the 
"MICRO on the APPLE" series... 

This series of books for the APPLE computer is the 
best source of Apple specific programming aids, 
utilities, enhancements, games and much more. 
MICRO has taken the best APPLE material ever 
published in MICRO magazine and brought it 
together in this three volume series. 



Volume 1 allows you to — 

Round and format numbers accurately, get 
lower-case letters and punctuation into 
Applesoft strings or play the hit game 
"Spelunker" 

Volume 2 lets you — 

Speed up machine-language programming 
using five powerful machine- language 
aids, add additional editing and I/O 
features, or play the intriguing game 
"GalactiCube" 

Volume 3 gives you more — 

Machine-language aids, I/O 
enhancements, graphics and games 

Each volume comes complete with diskette to save 
you the time of typing hundreds of lines of code. 

If you use to an APPLE computer you should own 
these books. 
Retail price $24.95 



give you names and locations of 
various Monitor, DOS, Integer 
BASIC and Applesoft routines 
and tells you what they're used 
for 

enable you to move easily bet- 
ween BASIC and machine 
language 

guide you through the inner 
workings and hidden 
mechanisms of the Apple 




The Atlas and the All New Guide are now 
available in one 256-page Wire-O-Bound book foi 
only $24.95. 

All Apple users will find this book helpful in 
understanding their machine and essential for 
mastering it. 
Retail price $24.95 



If you own the original 
What's Where in the Apple 

purchase The Guide to com- 
plete your edition. This 
128-page Wire-O-Bound ver- 
sion contains all the new 
material to be used with the 
memory map and atlas. 



Don't miss this opportunity 
to complete your 
edition of What's Where in 
the Apple. 

Order your copy of The Guide now 
Retail price 




..$9.95 



FOR EASY ORDERING 

CALL TOLL FREE 

1-800-345-8112 

(IN PA 1-800-662-2444) 
MasterCard and VISA Accepted 



AND now the 'MICRO on the APPLE" 
series is available as a boxed set. 

All three voumes are packaged 
in an attractive box with the 110 
programs on one diskette. 

The set is available at a 20% 
savings off the individual price. 
Retail price $59.95 



Use postage paid 
card opposite page 95 

to order your Micro 
subscription today . . . 










MICftO 

Hardware Catalog 



A New Expansion Unit 

for the Commodore, VIC-20 and 
Personal Computer 

Computer Place has announced the 
release of a new VIC-20 Expander. It 
differs from the others because it has 
such built-in features as four high- 
quality positively keyed connector 
slots for full memory expansion and 
utility cartridges; gold-plated contact 
fingers for solid, long-lasting con- 
nection; an on-board RESET button 
that allows the restart of the VIC-20 
without turning off the computer; 
four individual slot ON/ OFF control 
switches, which are arranged for easy 
access and designed with fingertip con- 
trol rather than pentip; an external 
power supply hook-up provision with a 
two-way power source switch; and a 
fuse block for overload and short 
protection. 
$54.95 

Computer Place 

23914 Crenshaw Blvd. 

Torrance, CA 90505 

(213] 325-4754 



64K of Memory 

for Your Color Computer 

Flexible Computer Solutions will in- 
stall 64K of memory in your Color 
Computer. F.C.S. will also include a 
program to copy your ROM(s) to RAM 
and instructions on how to turn the 
upper 32K of RAM on and off. Extended 
BASIC and Disk BASIC are not re- 
quired: Note: your upgraded 64K 
machine will behave like a standard 
32K machine as far as BASIC is con- 
cerned, except that you can copy the 
ROM(s) to RAM and then PEEK and 
POKE to the RAM where BASIC does 
not sit; or you can actually modify 
BASIC if you wish. Programs that are 
set up to use 64K such as Flex and 
Master Writer will have access to the 
full 64K. F.C.S. will also do repairs. 

For 4K, 16K, or 32K "D" or "E" 
boards or 16K "F" boards. 
$89.00 plus $5.00 shipping. 90-day 
guarantee. 

Flexible Computer Service 

1410 W. North Loop #108 

Austin, TX 78756 

(512) 458-9783 
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Super RAM 

for Atari 

Mosaic Electronics, Inc., announces its 
second release in the RAM Select 
series. Named the Mosaic 64K RAM 
Select, this new board will plug into 
both the Atari 400 and 800. Atari 800 
owners can plug up to three Select 
boards into their computer for 196,608 
bytes of useable RAM. The Mosaic 64K 
RAM Select is totally bus-compatible 
for use with Atari 16K and/ or Mosaic 
32K RAM boards. Atari 800 owners can 
use the board to simulate the Atari 
1200 architecture or configure the 
board for super powerful bank selec- 
tion. The 64K Select is compatible with 
both 8K and 16K ROM cartridges and 
installs without solder. Used with the 
Mosaic Adapter, 48K Atari 800 owners 
will have 112KRAM. 

64K Select owners will have access 
to the "Select" club that includes a 
monthly newsletter covering new ap- 
plications for the board and a program 
library that includes selections such as 
HANDYMAN, SUPERDRIVE, and THE 
MEMORY MANAGER. 

Mosaic Electronics, Inc. 

P. O. Box 708 

Oregon City, OR 97045 



Color Disk Drives 

for the Extended BASIC Color 
Computer 

The Color Disk Drive from Radio 
Shack turns the Extended BASIC Color 
Computer into a disk system at a new 
low price. A Color Disk Drive gives 
156,672 characters of user storage for 
program and data files. It can also be 
used with color-disk software. 

Easy to install, the Color Disk Drive 
controller Program Pak is plugged 
into the Color Computer's cartridge 
port. The Color Disk Operating System 
is completely contained in the con- 
troller Program Pak, so the full 
156K-byte disk capacity is available for 
on-line storage. 

The first drive comes with one 
5^ -inch double-density, 35-track flop- 
py disk drive, plug- in Program Pak car- 
tridge with cable, one blank 5i4-inch 
diskette, reference manual, and 
operator's instructions. Included cable 
allows up to two drives on a system, 
The Color Disk #0 Kit $399.95 
(26-3022) 

The Color Disk #1, 2, or 3 $279.95 
(26-3023) (requires Disk #0) 

Tandy Corporation/Radio Shack 

1800 One Tandy Center 

Fort Worth, TX 76102 
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(continued) 



The Apple Blooms! 

for the Apple II and He 

Hollywood Hardware's new program 
development package installs such 
crucial professional features as a Global 
Program Line Editor, definable Func- 
tion Keys, Output Formatting, and 
Structured Program Aids with one 
special firmware card. The package re- 
quires no disk loading and uses no 
memory space, yet speeds editing up to 
five times, using Insert, Delete, Search, 
Replace, and more. Powerful macros 
perform common tasks like Catalog 
and List with one keystroke, and you 
can program and nest custom macros to 
produce complex command sequences. 

Additional "&" utilities extend 
Applesoft (e.g., "IF, THEN, ELSE", and 
"PRINT USING"), perform Searches, 
Number-Base Conversions, Garbaged 
Program Recovery, and others. 

Future utilities from Hollywood 



Hardware (including: Renumber, 
Append, Disk Diagnostics, etc.), and 
user programs are supported with a 
documented memory manager and six 
open sockets totalling 24K of ROM 
expansion capabilities. 
$190.00 

Hollywood Hardware 

6842 Valjean Avenue 

VanNuys, CA 91406 

(213) 989-1204 



Apple Computer Announces A 
New Monitor 

for the Apple II Personal 
Computer 

Apple Computer, Inc. has announced a 
new monochrome video display designed 
to blend aesthetically with its Apple II 
family of personal computers. The 
newly-styled Monitor II features 
superior resolution for 80-column text 



and graphics display, an anti-reflective, 
high- contrast screen, and a tilt mech- 
anism for adjusting the screen's angle. 

The monitor's 12-inch screen 
displays up to 24 80-character lines of 
text and high-resolution graphics in 
P3I green phosphor, a color that 
minimizes eyestrain. The monitor's 
tilt mechanism and anti-reflective, 
high-contrast screen also help to reduce 
eye fatigue in a variety of lighting 
situations. 

The Monitor II can be used with any 
Apple II, Apple II + , or Apple He com- 
puter. Every Apple He computer comes 
with a video cable that allows the 
monitor to be easily connected to the 
computer's back panel. Video cables 
that were provided with Apple II and 
Apple II -H computers also work with 
the new monitor. 
$229.00 (90-day warranty) 

Apple Computer, Inc. 

20525 Mariani Avenue 

Cupertino, CA 95014 

(408) 973-2042 



ADD 60 COMMANDS TO 
YOUR COMMODORE 64 WITH: 



grafDOS 



An enhanced disk operating system adds 40 N^'PT commands to both 

BASIC and DOS! Includes easy to use Disk Commands, 

HIRES Graphics, LORES Graphics, Text and Sprites. 

MINIMON 

A powerful machine code monitor which adds 20 N^'PT commands to 
examine memory, disassemble, text dump, miniassembler and MORE! 

ONL Y *39^^ MINIMON available separately for $19.95 



DUST COVERS 

Attractive, brown vinyl covers. 

COMPUTER or DRIVE $7.95 

OLD STYLE DATASETTE $3.95 

NEW STYLE DATASETTE $3.95 

1525 PRINTER $7.95 



Send for our FREE catalog 
of the lowest prices for; 

CBM-64 GAMES • NEW PRODUCTS 

VIC-20 GAMES • BOOKS 

AND MORE! 



...jk INT€R€STING SOFTUJfifi€ 

21101 S. Harvard Blvd. 

Torrance, CA 90501 

(213) 328-9422 

Visa/ MC/ Check/ Money Order — Add $2.00 

CA residents add 6/2% sales tax 

DEALER INQUIRIES INVITED 
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The Interface! by Data-Cue 

for the Apple II 

The InterFacer by Data-Cue provides 
Apple II owners with an affordable 
solution to interfacing and com- 
munications. The InterFacer provides 
one fully programmable serial com- 
munications port. The port supports 
synchronous/asynchronous com- 
munications as well as both the RS-232 
and the RS-422 electrical standards. 
The InterFacer also provides two com- 
plete parallel printer ports. 

The InterFacer comes with software 
drivers for printers as well as a terminal 
emulator for communications with 
remote computers. This allows the 
connecting of a modem, high-speed 
data processing printer, and word- 
processing printer to the Apple 11 or 
Apple He all at the same time using a 
single board. 

$95.00 

Data-Cue 

5696 HWY 431 South 

Brownsboro, AL 35741 

(205) 883-2933 



The RAINBO-256 Analogue RGB 
Video Interface 

for the Apple II + and Apple He 

The RAINBO-256 is a high-resolu- 
tion analogue RGB interface card 
designed to interface from Apple II +, 
lie computers to Electrohome, Taxan, 
and other similarly interfaced color 
video monitors. 

Conventional video monitors are 
composite in nature, meaning that the 
video signal is not separated into red, 
green, and blue signals (thus the name 
RGB]. Further, using conventional 
monitors will limit you to the number 
of colors available at the output of 
the computer — in Apple's case only 
16 colors. 

The RAINBO-256 eliminates a 
number of problems inherent in the 
video circuits of the Apple, Franklin, or 
other look-a-likes. The video output 
generally is not 'clean,' meaning that 
there is substantial smearing among 
the colors. Further, when in the color 
hi-res mode, text takes on a variety of 
hues instead of being white like they 



should be. The RAINBO-256 solves all 
of these problems in one slot. 

The RAINBO-256 is also program- 
mable, unlike any other RGB board on 
the market today. Instead of being 
limited to the computer's color 
capabilities, the RAINB0^256 may be 
programmed for 256 individual colors 
by addressing 16 additional memory 
locations that the RAINBO-256 adds to 
the Apple. 

As the output connector differs 
from Taxan and Electrohome, when 
ordering the RAINBO-256, specify the 
model you wish: RAINBO-256-E for the 
Electrohome or RAINBO-256-T for 
the Taxan. 

The RAINBO-256 in either con- 
figuration retails for $279.00 and is 
available from your authorized 
MICROTEK dealer. 

$279.00 

MICROTEK 

4750 Viewridge Avenue 

San Diego, CA 92123 

(619) 569-0900 

iMCUO 
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Software Catalog 



New Weather-Sensing 
Package for Commodore 
64 and VIC-20 

Designed for use with 
Commodore 64 and VIC-20 
computers, the new HAWS 
(Home Automatic Weather 
Station) from Vaisala com- 
bines a professional quality 
weather sensor with a 
creative software package 
that teaches, forecasts, and 
graphically displays weath- 
er. More than a toy or 
game, HAWS utilizes the 
same weather sensor used 
by weather services in 60 
countries worldwide. In 
addition, HAWS represents 
the first personal computer 
application utilizing an 
external sensing device, 
allowing the user to in- 
teract and analyze input 
that is not contained in 
his computer or the soft- 
ware itself. 

HAWS allows the user 
to monitor weather condi- 
tions inside or outside the 
home as well as allowing 
the user to interact with the 



software program to help 
predict and cope with 
changing weather condi- 
tions. HAWS even allows 
the user to rate his/her 
forecasting performance 
against the local weather- 
man's predictions. 

HAWS is an excellent 
educational tool for 
teaching meteorology con- 
cepts and for learning about 
weather, either in the home 
or in the classroom. In addi- 
tion, HAWS can also be 
used to monitor and control 
indoor living space, 
greenhouses, and office en- 
vironments, etc. 

Priced at $199.95, the 
package includes sensor, 
choice of cassette tape or 
floppy disk program, 
15-foot cable with connec- 
tor for the computer, and 
complete user manual. For 
more information in- 
cluding dealer inquiries, 
write or call Consumer Prod- 
ucts, Vaisala, 2 Tower Of- 
fice Park, Woburn, MA 
01801; (617) 933-4500. 




A Powerful Software 
Tool from Soft Path 
Systems 

BRAINSTORMER for 

the Apple II with CP/M is a 
powerful software tool for 
generating potential solu- 
tions to complex problems. 
It works by building a 
description of a problem in 
terms of the themes and 
variations that affect its 
solution. The description of 
the problem is "probed" by 
BRAINSTORMER to gen- 
erate ideas about potential 
solutions to the problem. 
The user refines the process 
by controlling the occur- 
rence of particular themes 
and variations until a suffi- 
cient quantity of potential 
solution strategies is pro- 
duced. Up to ten billion 
"idea probes" can be gen- 
erated for any user-speci- 
fied problem. 

Potential applications 
for BRAINSTORMER in- 
clude increasing flexible 
thinking, discovering new 
products, targeting new 
markets, and exploring 
organizational problems. 

BRAINSTORMER is 
available for TRS80 I, III, 
and IV and for CP/M 
80-column monitor ma- 
chines including Apple II, 
Osborne I, and Kay-Pro 11. 
All systems require 
MBASIC, two drives [SVa 
SS or SD only), and 48K. 

This friendly and 
helpful package, complete 
with User's Guide and ex- 
ample files, sells for $50.00 
if used on a single machine. 
A program with concurrent 
group license for 2-10 
machines used by a single 
organization costs $100.00. 
It is available from Soft 
Path Systems, c/o Cheshire 
House, 105 North Adams, 
Eugene, OR 97402; 
(503) 342-3439. 



Store Tape-based 
Machine-Language 
Programs on Disk 

DISK LOADER for the 

TRS-80 Color Computer 
loads most 16K machine- 
language programs from 
tape to disk. This new pro- 
gram takes tape-based 
machine-language pro- 
grams, stores them on disk, 
and allows them to run 
automatically. DISK 
LOADER is especially 
designed to load programs 
that interfere with normal 
disk operation. It saves 
multiple copies, allows 
renaming the program, and 
automatically gives pro- 
gram load and execute ad- 
dresses. DISK LOADER is 
supplied on tape with easy- 
to-operate instructions and 
works with any 32K or 64K 
Color Computer disk 
system. 

Price is $13.95 ppd from 
Stuart Hawkinson, 6695 S. 
W. 203Td Court, Aloha, OR 
97007. 



Three Game-Format 
Programs to Strengthen 
Math Skills 

Aiith-Magic for the 

Commodore 64 with 64K 
and one disk drive or tape 
recorder consists of three 
interactive game-format 
programs that strengthen 
basic math skills for 
elementary / intermediate 
level and above. Arith- 
Magic provides enrichment 
opportunities for abler 
students through ex- 
perimentation with 
mathematical patterns. 

Price is $35.00 for one 
disk or tape and manual. 
Available from Quality 
Educational Designs, P. O. 
Box 12486, Portland, OR 
97212-0486; (503) 287-8137. 
(Continued on page 92) 
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VICTORY SOFTWARE 
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MgTMMRPHOSIS SOM 

You stumbled into the nest of thie Cyglorx 
and find yourself fighting off robot tonks 
guarding the Cyglorx eggs. You think you 
have everything under control and then 
the eggs start hatching. Commodore 64 
version features 4 different screens. 
Available for COMMODORE 64 and VIC-20. 
Played witti JOYSTICK 

/\^!REATOR'g REVRHOE $1«J|! 

%^^ The creator assembled a massive army of robots and insects 
^ to take revenge on the earth. Destroy insects, get treasures, and 
get the neutron bomb deactivator. Battle robots and destroy the 
neutron bomb before It annlhalites your city. Miss and you must 
face the mutants. Features 4 different screens. 
Available for COMMODORE 64. Played with JOYSTICK 

A L ARTRIHTR OF TEE C REATOR $1M8 

%^ Journey into the most complex and dangerous fortress ever 
^ build by the creator. You will encounter deadly robots, skulls, 
lakes, avalanches, false creators, and a creature who roams 
256 rooms relentlessly pursuing you. 
Available for COMMODORE 64. Played with JOYSTICK 



An adventure in the Old West. Journey back with us into 
the days of Jessie James and Billy the Kid where the only 
form of justice was a loaded revolver and a hangman's noose. 
, In this full-length text adventure, you 
! "^ playtheroleof Bounty Hunter, battling 

against ruthless outlaws, hostile Indi- 
ans, wild animals and the elements of 
the wilderness with only your wits and 
I your six gun. Average solving time: 20- 
J 30 hours. If you love adventures, this 
*^*^ one is a real treat. 

Available for COMMODORE 64 and VlC-20 
(with 8K or 16K expander), Played withi Key- 
board. 



Programs for the VIC-20 
and the COMMODORE 64. 

All games available on 
TAPE or DISK 

All Arcade-Style games 

are packed full of 

MACHINE CODE. 



$19.95 



Climb ladders, avoid the barrels the cra- 
zy ape is rolling at 
you, and rescue the 
damsel. Commodore 64 
version features 4 dif- 
ferent screens! 
Available for COMMODORE 
64 and VIC-20. Played with 
JOYSTICK or KEYBOARD 



¥;: 



fiBAVE ROREERS 



Introducing the first GRAPHIC ADVEN- 
TURE ever available for the VIC-20 or COM- 
MODORE 64! With realistic audio-visual effects, 
you explore an old deserted graveyard and 
actually see the perils that lie beyond. 
Available for COMMODORE 64 and VIC-20. Played with 
KEYBOARD. 



IWUMTT HnmR S«y» b / ^mfebm ah 



liM^^* 



. Don't let the bullies catch you as you 
gobble the goodiesi This program has 8 
screens and still fits in the 
standard memory 
Available for COMMODORE 64 
and VIC-20. Played with JOY- 
STICK or KEYBOARD 



^' 



\ Illustrations: Elizabeth Houck 



fEK OOKS 



$14.96 



^mJ^ Earth's surface is threatened by collapse from a strange 
^W group of creatures who bore out the earth's crust to make 
their dens. Your objective is to enter the creature's habitat and 
spin the invaders to death. 
Available for COMMODORE 64. Played with JOYSTICK 
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Check your LOCAL DEALER or order directly. 

ORDERING: Weacceptpersonal checks, money orders, 
VISA and MASTERCHARGE. Charge orders please in- 
clude number and expiration date. Overseas orders 
please use charge or have check payable through a 
U.S. bank. Add $1.50 postage and handling per order. 
PA residents please add 6% sales tax 




Software Catalog (continued) 



HODGE PODGE Now 
Available for the Atari 



DYNACOMP an- 

nounces that HODGE 
PODGE is now available 
for the Ataii . HODGE 
PODGE was originally 
written for the Apple and 
was well accepted by both 
parents and teachers. It was 
given top grades by several 
reviewers and has been in- 
cluded in many elementary 
school curriculums. 

The Atari version of 
HODGE PODGE is almost 
an exact translation of the 
Apple version. All of the 
sound, color, and graphics 
features have been retained. 

The Atari version re- 
quires 32K I cassette), 48K 
I disk] and will run on an 
Atari 400, 600, 800, or 1200 
having sufficient memory. 
Recommended age range: 2-7. 



Price: $14.95 (cassette), 
$18.95 (disk). For more in- 
formation contact DYNA- 
COMP, Inc., 1427 Monroe 
Ave., Rochester, NY 14618; 
|716) 442-8960. 



Oh No! It's TROMPERS 

TROMPERS from 
Avant-Garde is a new game 
for the Apple, Atari, and 
Commodore. Hundreds of 
practical-joking space crit- 
ters are falling from the 
sky! Can you help Arnold 
Stump, the local dog catcher, 
snare them before they take 
over the entire city? Armed 
with only a net and your 
own skills, it's you and Ar- 
nold versus TROMPERS! 

Available from your 
local dealer or from Avant- 
Garde Creations, Inc., P.O. 
Box 30160, Eugene, OR 
97403; 1503) 345-3043. 



A Grade- and Attendance- 
Management Package 

GradeCalc is a grade- 
and attendance-manage- 
ment package for the Apple, 
Atari, and Commodore 64. 
It is designed to free the 
teacher from many of the 
time-consuming tasks of 
record keeping. Grade filing 
and reporting are set up in a 
flexible manner to accom- 
modate any teacher's ex- 
isting gradebook format. 

With GradeCalc the 
teacher has on file all the 
raw grades and assignment 
information. This file can 
then average grades using a 
variety of methods. 

GradeCalc maintains 
attendance records in the 
same flexible manner as 
grade records. The teacher 
can recover a variety of 
reports based on the atten- 
dance records. These 



reports include cumulative 
totals of all attendance 
records and problem reports 
based on excessive 
absences of other problems. 
The GradeCalc package 
is available on disk for 
Commodore 64, the 40- or 
80-column CBM or PET 
computer, Apple II, Apple 11 
Plus, or Apple lie with at 
least 32K memory, and for 
the Atari 400, 800, or 1200 
with 40K of memory. The 
price is $29.95 for all ver- 
sions except the Atari, 
which is $34.95. Contact 
Tamarack Software, Inc., 
Water St., Darby, MT 
59829; (406) 821-4596. 



A Color Compiler for the 
TRS-80C 

Computerware in- 
troduces THE COLOR 
BASIC COMPILER for the 

(Continued on page 94) 



VlC-20 USERS: Get Serious With A PHQIYigJEEi;^ 



• A cartridge development system • Comprehensive manuals 

• Program from Commodore VIC-20 keyboard into built-in 4K 
ROM emulator • Jumper to target ROM socket 

• Test programs In circuit • Fits EXPANSION PORT 

• Includes Hexkit 1 .0, a powerful 100% machine code editor/de- 
bugger utility program that makes coding for 8-bit Micros a snap. 

• Built-in EPROM programmer and power supply 

• Burns & runs EPROMS for the Commodore VIC-20, too 
Programs 2716, 2732, 2732A, 27016, 27C32, adaptable to 2532 & 2764 

PHaiYlt)LJEE[^ CARTRIDGE COMPLETE ONLY $199 



us Canada 

Promqueen 64 $299.00 $399.00 

8K board with 1 EPROM $29.95 $39.95 

16 board with 1 EPROM $39.95 $49.95 

8K board with 1 EPROM, 064 $39.95 $49.95 




GLOJCESTEH 
CDIVIPJTER.iMc. 



Send for Free Brochure 



Distributed in U.S. by Arbutus Total Soft, Inc., 4202 IVIeridian, Suite 214, 
Bellingham, WA 98226. Phone 800-426-1253, in Washington 206-733-0404 

Distributed in Canada by IBC/Distribution Canada,4047 Cambie St., 
Vancouver, BC V5Z 2x9. Phone 604-879-7812 
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^1^^ Alspa Computer Jnc. 



Price-performance leader, Includes Z80A, 8" ds/dd drives, 3 
serial + 1 parallel port, Winchester port, networking. Prices 
start below $1500. DEALER / OEM inquiries invited. 



SPECIALS on INTREGATED CIRCUITS 



6502 7.45 10/6.95 50/6.55 

6502A/6512A 8.40 10/7.95 50/7.35 

6520 PIA 5.15 10/4.90 50/4.45 

6522 VIA 6.45 10/6.10 50/5.75 

6532 7.90 10/7.40 50/7.00 

2114-L200 2.45 25/2.30 

2716EPR0M 4.90 5/4,50 

2532EPR0M 6.90 5/6.75 

6116 2KX8 CMOS RAM 6.90 5/6.75 
4116 RAM 
4164 RAM 
Zero Insertion Force 24 gin Socket (Scanbe) 



100/6.15 

100/6.90 

100/4.15 

100/5.45 

100/6.60 

100/2,15 

10/4.00 

10/6.45 

10/6.45 

8 for 14 

6.50 

2.00 




Hewlett Packard ^fl% 

Write or cal[fo_rj3ri_ces._ >-<=• ^^/-^ 

Anchor 
Automation 
Signalman 
Modems 

FREE SOURCE MEMBERSHIP WITH SIGNALMAN 

All Signalman Modems are Direct Connect, and include cables 
to connect to your computer and to the telephone. Signalman 
Modems provide the best price-pertormance values. 
Dealer and OEM inquiries invited 

Volksmodem (79) 
RS232 or Atari Cable for Volksmodem 

Mark I RS232 (99) 

Mark VI for IBM Persona! Computer (279) 

Mark VII Auto Dial/Auto Answer (1 59) 

Mark Xli Smart Model 1 200/300 (399) 



55 



59 
179 

89 
295 



DC HAYES Smartmodem 

DC Hayes Smartmodem 1 200/300 



219 

529 




170 
Call 
95 
29 

125 
20 

64 
56 
64 
32 
32 
64 
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PROM QUEEN for VIC 
Apple Emulator for Commodore 64 
STAT Statistics Package for C64 
Solid Oak 2 Level Stand for C64 or VIC 

C64/VIC Switch (networking) 

BACKUP VI. tape copier for C64 or VIC 

CAROBOARD/6 Motherboard - VIC 
CARDBOARD/5 Motherboard - C64 
CARDPRtNT Printer Interface - C64/VIC 
CARDB0ARD/3S Motherboard - VIC 
CARDCO C64/VIC Calculator Keypad 
CARD RAM/1 6 RAM Expansion - VIC 
Complete CARDCO Line in stock 
CIE and VIE IEEE Interfaces in stock 
BASM Compiler/Assembler for C64 

AMI— MMUN ITEMS 

KRAFT Apple Joystick 40 

18K RAM Card for Apple 59 

Solid Oak 2 Level Stand for Apple 29 

Serial Card for Apple 99 

MPC RAM/80 column card for HE (AP/TXT) 1 39 

Z80 Softcard and CP/M (Microsoft) 235 

RANA Elite I with Controller 389 

Parallel Printer Interface/Cable 79 

Apple Dompling (Microtek) Printer Interface 1 1 5 

Apple Dumpling with 16K Buffer 160 

Grappler + Interface 129 
Kraft Products for Apple in stock 

DC Hayes Micromodem II 299 

PFS: File 100 

PFS: Report 100 

Videx 80 Column Card 209 
Hayden Software (or Apple 20% OFF 

Apple Blue Book 19 



Q commodore 

See us for Persosal, Business, and Educational 
requirements. Educational Discounts available. 

PEtSCAN I $245 base price 

Allows you to connect up to 30 CBM/PET Computers to 
shared disk drives and printers. Completely transparent to the 
user. Perfect for schools or multiple word processing con- 
figurations. Base configuration supports 2 computers. Addi- 
tional computer hookups $1 00 each. _ 



COMPACK/STCP 



$115 



Intelligent Terminal Package for PET, CBM. C64 

Includes ACIA Hardware / STCP Software 



VE-ZIEEEtoParalleilnterface 110 

Includes case, power supply, full 8-bit transmission, and 
switch selectable character conversion to ASCII. 

viDEG ENNANCER for Commodore 64 69 

Realize video quality equal or better than composite monitor 
using standard color TV. 

SCREENMAKER80CoiumnAdapterforC64 145 

Provides big screen capability for business apP|_ipations. _ _ 

GENISIS Computer Corp 

VICoRtroller (for C64 as well) 50 

combine with BSR modules for home or business control 

C0MSENSERemoteSensingAdapterforC64orVIC 35 

COM VOICE Synthesizer for C64 or VIC 1 39 

includes software for test to speech, pitch, etc. 

COM CLOCK Real Time Clock witli battery backup 45 

VIC 20 Products and Software in stock 

Thorn EMI Software UMI Software 

ABACUS Software HES Software 

16K RAM for VIC 64 Vanilla Pilot 27 

VICTORY Software for VIC and C64 

Street Sweepers (VIC) 1 2 Kongo Kong (VIC) 
Night Rider (VIC) 1 1 

16 



Annlhilator 
Adventure Pack !l 
Educational Pack I 
Strategy Pack I 



16 

11 
16 



Cosmic Debris (VIC) 

Adventure Pack I 

Metamorphosis 

Trek 

Grave Robbers 



16 
12 
16 
11 
12 
12 

i09 

125 
16 
19 

11 
125 
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PAPER CLIP Word Processor 

ORACLE Data Base from Batteries Included 

Commodore 64 Programmers Reference Guide 
MlcroChess for C64— 8 levels of play 
Computel's First Book of PET/CBM 
C64 or VIC SWITCH 
POWER ROM Utilities for PET/CBM 
WordPro 3+/B4 69 

WordPro 4+ - 8032, disK printer 295 

SPELLMASTER spelling checker for WordPro 
VISICALC for PET, ATARI, or Apple 1 89 

PET-TRAX PET to Epson Graphics Software 40 

SM-KIT enhanced PET/CBM ROM Dtilities 40 

Programmers Toolkit - PET ROM Utilities 35 

EASY CALC for C64 65 

PET Spacemaker II ROM Switch 36 

COPYWRITER Word Processor for C64 69 

2 Meter PET to IEEE or IEEE to IEEE Cable 40 

Dust Cover for PET, CBM, 4040, or 8050 8 

CmC Interlaces (ADA1800. ADA1450, SADI in stock) 
Programming the PET/CBM (Compute!) — R. West 20 
Compute! First Book of VIC 1 1 

HES MODEM with Software 65 

HES Software and Hardware in stock 
UMI products in stock 

HexWeiorPET/CBWceT $170 

Database, Report Writer with calculations, Mailing Lists. 
FWTTforPEfrCMTulm model — Cargill/Riley $50 
Metacompiler for FORTH for independent object code 30 



KMMM PASCAL tV.1 for PET/C64 

EARL for PET/CBM Disk-based ASSEMBLER 



95 
65 



Super Graphics — BASIC Language Extensions 45 

Fast machine language graphics routines for PET/CBM 
RAM/flOM'tor Pe't/CBM Tk $75 8K $9o' 



Commodort Public Domain Software for C64 



75 




10/2.20 50/2.00 100/1.95 

10/3.05 50/2.80 100/2.75 

10/2.30 50/2.10 100/2.06 

10/2.85 50/2.70 100/2.65 



DISK 
SPECIALS 

Scotch (3M) 5" ss/dd 
Scotch (3M) 5" ds/dd 
Scotch (3M) 8" ss/sd 
Scotch (3M) 8" ss/dd 

We Stock VERBATIM DISKS 

Write for Dealer and OEM prices. 

Sentinal 5" ss/dd 10/1.90 50/1.85 100/1.80 

Sentinal 5" ds/dd 10/2.55 50/2.50 100/2.45 

We stock Dysan disks 

Wabash 5" ss/sd 
Wabash 5" ss/dd 
Wabash 8" ss/sd 

We stock MAXELL DISKS 

Write lor dealer and OEM prices. 

Disk storage Pages 10 for $5 Hub Rings 50 for $6 
Disk Library Cases 8"— 3,00 5"— 2.25 
Head Cleaning Kits 1 1 

CASSETTE TAPES— AGFA PE-6 11 PREMIUM 

C-10 10/61 50/ .58 100/ .50 

C-30 10/ .85 50/ .82 100/70 



10/1.60 50/1.55 100/1.45 
10/1.90 50/1.85 100/1.75 
10/2.00 50/1.95 100/1.85 



OATASHIELD BACKUP POWER SOURCE 265 

Battery back up Uninterruptible Power Supply with surge and 
noise filtering. The answer to your power problenns. 



95 



Zenith ZVM-121 Green Phosphor Monitor 

Zenith new color and monochrome monitors in stock 

MultiPlar^lBM or Apple 

Quadboard for IBM available 

Peacbtext 5000 Software Paclcage 

PFS Software for IBM and Apple in stocit 

VOTRAX Personal Speech System 

VOICE BOX Speech Synthesizer (Apple or Atari) 

CompuServe Subscription (5 hours free) 

Dynax |Brother| DX-15 Daisy Wheel Printer 

Itoh Prowrtter Parallel Printer 

Panasonic 1090 Printer with Correspondence Mode 

USl CompuMOD 4 R F Modulator 

Daisywriter 2000 with 48K buffer 

Many printers available (Gemini-Star, Brother, OKI, etc.} 

We Stocic AMDEK Monitors 

AmdekDXY- 100 Plotter 590 

A P Products 15% OFF 

Watanabe Intelligent Plotter 990 6-pen 1290 

BROOKS 6 Outlet Surge Suppressor/Noise Filter 54 

We stock Electrohome Monitors 

Synertek SYM-1 Microcomputer 189 

ALL ROOK and SOFTWARE PRICES DISCOUNTED 



185 
219 

280 

35 
469 

379 
319 

39 
1050 



Panasonic 12" Monitor (20 MHz) with audio 
Panasonic CT-160 Dual Mode Color Monitor 



139 
259 



USl Video Monitors— Green or AMBER 20 MHz hi-res. 
Dealer and OEM inquiries invited 

YtMiTH I data 
" ^ I systems 

HERO I Robot (factory assembled) 2145 

Z29 Terminal (DEC and ADM compatible) 680 

ZT-1 Intel Terminal with Serial Port 340 

Zt 00 1 6-biV8-bit Systems in stock CALL 

We stock entire Zenith line. 




ATARr 

SPECIALS 



WE STOCK ENTIRE LINE— write for prices. 

Software for Atari in stock 



215-822-7727 

252 Bethlehem Pike 
Colmar, PA 1891 5 
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Software Catalog (continued) 



Radio Shack Color Com- 
putei with 32K and at least 
one disk drive. If you have 
ever written a BASIC pro- 
gram only to find that it 
runs too slow to provide 
any action and you haven't 
had the courage to learn 
assembler, then the Color 
Compiler is the answer to 
your problem. The Color 
Compiler lets you write 
your program in easy 
BASIC and then converts it 
into fast machine language. 
After you run your compiled 
program, you may find it 
necessary to add some 
delays because the Color 
Compiler will make your 
program run an average of 
40 times faster. 

The Color Compiler 
features a total of 46 com- 
mands and functions. Most 



of these are a subset of Ex- 
tended Color BASIC. Ex- 
cept for a few restrictions, 
you can program in BASIC 
and assume that anything 
is legal and the Color Com- 
piler will understand. The 
Color Compiler generates 
position-independent code 
so that you may put the 
compiled program any- 
where in memory, in- 
cluding into a ROM-pack! 
Don't be misled by the low 
price — this is a very 
powerful development 
package. 

Price is $39.95 (plus $2 
shipping) and is available 
from Computerware 
dealers or directly from 
Computerware at Box 668, 
4403 Manchester Ave., 
Suite 103, Encinitas, CA 
92024; 1619) 436-3512. 



Two Sports Strategy 
Games 

Parr Programming in- 
troduces two sports 
strategy games on cassette 
for the Commodore 
VIC-20. In Baseball Adver- 
sary, you make tough mana- 
gerial decisions against 
your computer opponent. 
Additional players on the 
bench allow for pinch hit- 
ting and relief pitching. 

Football Adversary places 
you in the role of head coach 
opposing the computer. Fea- 
tures include a selection of 
31 plays and a display of 
half-time game statistics. 

Baseball Adversary re- 
quires no memory expan- 
sion and retails for $10.95. 
Football Adversary requires 
8K memory expansion and 



retails for $14.95. Available 
postpaid from Parr Pro- 
gramming, 2664 Tyler St., 
Gary, IN 46407; (219) 
885-0611. 



ARCADIA MANIA 

Perseus Programming 
presents a fast-action game 
for the Commodore 64 en- 
titled ARCADIA MANIA. 

Nineteen different waves of 
creatures await your attack. 
For more information or 
to order at $24.95 each, 
write to Perseus Program- 
ming, 9311 Avery Rd., 
Broadview Heights, OH 
44147. 
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DUAL ACIA BOARD 

Essential for telecommunications. T^wo 
independent full duplex R5232 channels. Uses 
6551 AClAs. Crystal-driven TTL clock. Supports 
TTL level or RS232C (+/-12v). Supports all 
standard baud rates to 19,200. Can support 
intcrrupl-drivcn I/O. Demonstration source 
code provided. 

COM-1 



w 



REAL-TIME 
CLOCK/CALENDAR 

Demonstration software with source 

and data sheet. Uses the OKI 

MSM5832. Provision for user-supplied 

battery backup. 

On board crystal for accurate 

timekeeping. 

CMOS circuitry Low power Year, 

month, date, day-of-week, hours, 

minutes & seconds! 12/24 hour ■ Leap 

Year correction 4 interrupt rates 



$60 




EPROM PROGRAMMER 

Particular combination of hardware and 
software (machine language) used results 
in VERY LOW programming overhead. 
Flexible design; supports future EPROM 
designs. Will program EPROMS up to 
256K bits (32K bytes). 
FVograms all these EPROMS: 

2508. 2516, 2532. 2564, 2758A, 
2758B, 2716, 27C16. 2732. 2732A, 
27C32, 2764. 27C64, 27128, 
MCM68764 
All personality modules INCLUDED. 
Menu driven program for easy operation. 

PRG-1 




$250 




I/O EXPANSION BOARD 

For microcomputers that use 6522 VlAs for I/O and do 
not provide full address decoding on board. This board 
has physical space for four additional 6522 VlAs, and 
provides additional decoding for a total of 16 devices. 
Two versions of this board are available. The I/OX- 122 
mounts above, and directly plugs into, an on- board 6522 
socket, and relocates the original VIA to the expansion 
board. Where there are space limitatbns, the I/OX-222 
uses a dip header and an 8" cable for remote installation. 

I/OX- 122 $60 I/OX-222 $72 



32K CMOS STATIC RAM BOARD 



Dealer and Distributor Inquires Invited. 

P.O. Box 1019 • Whittier. CA 90609 

(213) 941-1383 




Models MB-132/32K. $299 
/16K$241,/8K $197 
Features: 

• 200ns Low Power CMOS, STATIC RAM 

• Extends your expansion connector 

• Plug compatible with 2716 EPROMS 

• First 8K are jumper selectable 

■ Entire board may be bank- switched 

All boards feature G-10 giass/epoxy, solder 
mask, and gold plated connectors. All boards 
carry a full 1-year limited warranty. When 
ordering specify SYM or AIM version: add S & 
H in U.S. and Canada S2.50, overseas $4.00 
(US). Calif, residents add sales tax. 
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9 SANYO MONITOR SALE!! 




80 Columns x 24 lines 
Green text display 
East to read • no eye strain 
Up front briglitness control 
IHIgii resolution graphics 
Quick start - no preheating 
Regulated power supply 
Attractive metal cabinet 
UL and FCC approved 



9" Dote Monitor 

15 Day Free Trial - 90 Day Immediate Replacement Warranty 



9" Screen - Green Text Display $ 79.00 

12" Screen - Green Text Display (anti-reflective screen) $ 99.00 
12" Screen - Amber Text Display (anti-reflective screen) $119.00 



Display Monitors From Sanyo 

With the need for computing power growing every day, Sanyo has 
stepped in to meet the demand with a whole new line of iow cost, high 
quality data monitors. Designed for commercial and personal com- 
puter use. All models come with an array of features, including up- 
front brightness and contrast controls. The capacity 5 x 7 dot 
characters as the input is 24 lines of characters with up to 
80 characters per line. 

Equally important, all are built with Sanyo's commitment 
to technological excellence. In the world of Audio/Video, Sanyo is 
synonymous with reliability and performance. And Sanyo quality Is 
reflected in our reputation. Unlike some suppliers, Sanyo designs, 
manufactures and tests virtually all the parts that go into our products, 
from cameras to stereos. That's an assurance not everybody can 
give you! 



SANYO 



Officiaf Video Pmducts 
of the Los Angefes 7984 Olympics 




• LOWEST PRICES • 15 DAY FREE TRIAL • 90 DAY FREE REPLACEMENT WARRANTY 
• BEST SERVICE IN U.S.A. • ONE DAY EXPRESS MAIL • OVER 500 PROGRAMS • FREE CATALOGS 



I Add V10.00 for sliipplng, handling and insurance. Illinois residents 1 
I please add 6% tax. Add $20.00 for CANADA, PUERTO RICO, HAWAII | 
I orders. WE DO NOT EXPORT TO OTHER COUNTRIES. | 

I Enclose Cashiers Check, Mpney Order or Personal Check. Allow 14 | 
I days for delivery, 2 to 7 days for phone orders, 1 day express mail! | 
I Canada orders must be in U.S. dollars. Visa - MasterCard - C.O.D. | 



C|UTCDpQI7pO (WE LOVE OUR CUSTOMERS) 

BOX 550. BARRINGTON, ILLINOIS 60010 
Phone 312/362-5244 to order 
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Subscribe to 

MICRO... 

Save 20% and 
we'll send you a 
BONUS GIFT 

with your subscription! 



Fill out the attached 
card and mail today^ 




CHOOSE FROM: 

* Best of MICRO Vols. 2 and 3 

An $18.00 Value — FREE! 
or 

* MICRO CalC for Appk, Atari, TRS-80, or C64 

A $14.95 Value — FREE! 
or 

* What's Where in the Apple 

A $24.00 Value for Only $12.00 



TWO NEW 
FROM 




■M^^^^M 



I Don't Miss 

These Great MICRO Publications 

A Feast Of Computing Ideas 

Use These Postage-Paid Cards To Order 
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SAVE 
20%! 

Use This 
Postage-Paid 
Card To 
Subscribe... 
Or Call 
Toli-Free 
1-800-345-8112 

(In PA 1-800-662.2444) 
iMast0rCani and VISA Accepted) 
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n YES! Enter my subscription to MICRO for just $24.00! 
and with it send me the BONUS GIFT I've checked. 

D Best of iVIICRO Volumes 2 and 3. An $18.00 Value — FREE! 

a iWIICRO Caic for D Apple D Atari D TRS^ D C64 
A $14.95 Value — FREE! 

D What's Where in the Apple at Half Price! A $24.00 Value — Only $12.00! 



Please rush my subscription and the BONUS GIFT I've checked to: 

Name 

Address 

City 



.State. 



-Zip- 



(Allow 6-8 weeks for delivery) 



I'm paying by: D Check D MO 
n VISA D MC 

Total Enclosed: $ 



VIsa/MC #_ 
Exp. Date:_ 
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s Newest Books 



NEW for VIC-20 Users! 
Mastering Your VIC-20 

With 8 BASIC Projects 

A book that makes learning to program your 
VIC-20 fun! Contains 8 projects and programs. 
Games, utilities — even a VIC-20 version of 
"VisiCalc." All 8 programs on cassette to help you 
learn faster. 
n Mastering the VIC-20 @ $19.95 



NEWforOSI Users! 
MICRO on the OSI 

Includes Machine-Language enhancements and 
BASIC Aids, hardware modifications for 
enhanced/reversed video, programs for control 
code and upper/lower case entry. A valuable pro- 
gramming tool. 
D MICRO on the OSI @ $19.95 



Please rush the MICRO Books I've checked above to: 

Name 

Address 

City 



. State _ 



-Zip_ 



(Allow 6-8 weeks for delivery) 



I'm paying by: D Check D MO 
a VISA D MC 

Total Enclosed: $ 

{Add $2.00 s/h per book.) 



Visa/MC#_ 
Exp. Date:_ 
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's Best Sellers 



The Best of MICRO 

Make your computer reference 
library complete by adding the "Best 
of MICRO" to your present book col- 
lection. Each volume full of articles 
and programs pulled from the pages 
of MICRO. Excellent software at a 
very low price! 

n BOM Volume 2 @ $8.00 
n BOM Volume 3 @ $10.00 



What's Where 
In the Apple 

Revised new addition with text added 
to the original atlas and gazetter. All 
Apple users will find this book helpful 
in understanding their machine and 
essential for mastering it. 
n What's Where in the Apple 

@ $24.95 
D The Guide @ $9.95 



Best Sellers for 

APPLE Users! 

MICRO on the APPLE 

Programming aids, utilities, 
games, enhancements. Together 
Volumes 1, 2, and 3 contain over 
100 programs on diskette. Fully 
documented and explained. 
n 3-Volume Gift-Boxed @ $59.95 
n Vol.1 D Vol.2n Vol.3 $24.95 ea. 



Please rush the MICRO Books I've checked above to: 

Name 

Address ^ 

City 



. State _ 



-Zip. 



(Allow 6-8 weeks for delivery) 



I'm paying by: D Check D MO 
D VISA a MC 

Total Enclosed: $ 

(Add $2.00 s/h per book.) 



Visa/MC#_ 
Exp. Date:„ 
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Interface Clinic 



by Ralph Tenny 

I have discussed the serial port on 
your computer and demonstrated 
experiments for the Color Com- 
puter. As I mentioned previously, the 
serial port on several computers is a 
software toggle of a PIA bit. This type 
of port is often referred to as a bit 
banger, in case you have heard that 
term. Most previous experiments 
depended upon the serial port being 
software driven, but this month I have 
desiged an I/O port to work with any 
kind of RS-232 serial port. It will give 
you eight bits parallel output and eight 
bits parallel input, driven by the serial 
port of your computer. 

The device that allows this expan- 
sion is called a Universal Asyn- 
chronous Receiver/Transmitter 
(UART). UARTs are common in com- 
puters and, when used as originally in- 
tended, allow the microprocessor to 
write each character out on its data bus 
and go on about its business. The 
UART accepts this data, sets a "busy" 
flag, and serially transmits the 
character at a present baud rate. 
Simultaneously, the UART can 
monitor a serial input channel (at the 
same or a different baud rate) for in- 
coming data. If a character is received, 
the UART sets a "data ready" flag to 
signal that it has data. Remember, 
computers with bit-banger serial ports 
must be involved with sending and 
receiving serial data — counting down 
the timing loops to match the timing of 
the selected baud rate. Therefore, the 
computer can't do anything else during 
serial transmission. The UART allows 
the processor to do something else for 
relatively long periods of time. This 
project will show you a slightly dif- 
ferent use for a UART, but the UART 
will function about the same. 

Let's look at a typical UART (figure 
1). There are eight parallel input lines, 
eight parallel output lines, a serial in 
line and a serial out line, a clock line 
for each channel, and various hand- 
shake and status lines for each channel. 
The principle of operation for a UART 
is basically simple and involves having 
the clock speed 16 times the bit rate or 
baud rate. It is also important to 



remember that asynchronous transmis- 
sion of serial data has another impor- 
tant feature — the start bit/ stop bit 
protocol. That is, when data is not be- 
ing sent, the serial line is held at a logic 
1 level; when a character is sent, the 
serial line is taken to logic for one bit 
time. Immediately after that, the bits 
are sent, one at a time, until the re- 
quired number of data bits (usually 
eight) are sent. Then either one or two 
stop bits will be sent; that is, the serial 
line will be held at logic 1 for either one 
or two bit times. 

It is easy to understand how the 
UART manages the proper bit timing to 
transmit a character, but how about the 
receive operation? Here is where the 
16X-bit clock comes in. Inside the 
UART, a very simple circuit spins in a 
loop, waiting for the start bit to hap- 
pen. As soon as the serial line goes to 
logic 0, the input circuit counts off the 
next eight bit clocks and samples the 
serial line again. If it is still at logic 
with half a bit time used up, a start bit 
is recognized. Next follows a delay of 
16 clock periods and the line is sampled 
again. That means that the logic level 
of the serial line is checked at about the 
middle of each bit time, and the or 1 
levels are reconstructed into an 8-bit 
binary word. While the stop bits are ac- 
tive, the input circuit is getting ready 
for the next character. 

The description of how the various 
hand-shake and status lines operate 
will be left for you to work out. The 
data sheet furnished with the UART 
specified will aid in this research. 
Ignore those pins that require no con- 
nection; this will simplify the 
schematic diagram of the project. Table 
1 shows the various pin names you 
need to hook up and how to strap them 
to obtain the performance you need. 

Figure 2 shows the schematic of the 
serial /parallel converter. Ula and Ulb 
plus a special crystal make a precision 
oscillator to drive the UART clock. U2 
and U3 form a divide-by-47 circuit to 
change the 455 kHz oscillator to the 
9600 Hz clock needed for a 600-baud 
interface |600 x 16 = 9600). Look at 
the divider network for a moment: 47 
decimal is 2F hexadecimal, and U2 is a 



7-bit binary counter. A full count on U2 
is 7F, so if you skip the high-order out- 
put of U2 (/128) and connect the /64, 
/1 6, /8, /4, and /2 outputs to an AND 
gate (U3), then the output of the AND 
gate will go high every 47 input clock 
cycles. Pin 2 of U2 is the RESET pin, so 
U2 will divide by 47, giving the re- 
quired 9600 Hz (within .8%). 

The /64 output is sent to the UART 
for both clock inputs. U4c is a power- 
up RESET circuit, which performs the 
required initialization of the UART, 
while U4a and U4b generate a slow 
clock signal, which causes the UART 
to periodically sample the parallel in- 
put lines and send a serial data stream 
to the computer. There are two ways 
you can make the computer read this 
input: you can put the computer into a 
loop polling the serial input line until it 
gets an 8-bit character, or you can have 
it respond to an interrupt. Those with 
other computers may have to rely on 
polling, but the Color Computer has an 
interrupt input on the serial port. U4b 
and Q2 "tickle" the CD input of the 
serial port, and you can either poll the 
port or set up an interrupt. U4a and 

(Continued on next page) 



Table 1 

1. Vcc- +V 

2. N/C 

3. GND 

4. Received Data Enable - GND 

5. 12 Received Data Bits 

17. Receiver Clock 

18. Reset Data Avail. - -I- V 

20. Serial Input 

21. External Reset 
23. Data Strobe 

40. Transmitter Clock 

39. Odd/Even Parity Select - GND 

38. # Bits/Char. 2- -kV 

37. # Bits/Char. 1 - +V 

36. # Stop Bits - GND 

35. No Parity- -i-V 

34. Control Strobe - + V 

26-33. Data Bit Inputs 

25. Serial Output 
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(continued) 



U4b generate a slow-trigger waveform, 
causing the UART to load whatever 
logic levels are on the input lines (DB7- 
DBO) and then transmit that binary 
word to the computer. 

Anytime CD is pulled up by Q2, the 
IRQ flag in the PIA is set; if interrupts 
are enabled, the computer can be pro- 
grammed to read the input port to ser- 
vice the interrupt; otherwise, the com- 
puter would have to poll the interrupt 
bit as was done on the previous input 
adapter (MICRO 63:122). U4c 
generates a .2-second delay as power 
comes on; this resets the UART. Ulc 
and the associated resistors adapt the 
incoming RS-232 levels to the UART 
serial- in line, while Ql is driven by the 
serial-out line from the UART. 
Although Ql and Q2 feed the RS-232 
lines on the computer, their output 
swings only from Vcc to ground. This 
will work over short distances (about 
10') with no problem on most com- 
puters. If your computer fails to 
recognize the 0-volt signal as an RS-232 
logic 1, change the Ik resistors with Ql 
and Q2 to 3.9k resistors and connect 
them to a source of negative voltage 
greater than -3 volts. 

When you begin to build this serial 
I/O adapter, you will note some 



simplification in the schematic and 
parts list, which was done to give you 
some practice in skills needed to design 
your own computer interfaces. The 
parts list shows some parts without 
Radio Shack part numbers, and no part 
numbers are given for resistors and 
capacitors. Those parts not available at 
Radio Shack must be obtained at one of 
the sources listed in earlier columns. 
Also, not all the pin numbers of all ICs 
are shown. Ul, U3, and U4 are multi- 
ple gate packages, and any of the sec- 
tions of the specified IC will do the re- 
quired job. In addition, only the active 
signal lines are shown on U5, but some 
of the lines not shown are listed in the 
table, showing whether the pins must 
be tied to Vcc or ground. Pins of U5 not 
shown in either the schematic or the 
table are output lines that are not used; 
leave them unconnected. You can test 
the output lines (RD0-RD7) with a 
voltmeter or logic probe. If you type 
PRINT#-2 CHR$(69), bits RD6 through 
RDO should contain the pattern (in 
binary): 1000101 or 45 hexadecimal. 
Input testing will be more difficult 
since many dialects of BASIC do not 
expect to receive data over the serial 
port. This problem will be covered next 
month when 2 discuss the programming. 
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Figure 2. Schematic for UART- 
based serial-parallel adapter 
which converts an RS-232 serial 
port into a parallet port. Not all 
IC connections shown; see text 
for details. 




You may contact Mr. Tenny at P. O. Box 
545, Richardson, TX 75080. 



Figure 1. Pinout for standard 
UARTs. Some pin name 
abbreviations are given in the 
text, and all are explained In 
UART data sheet. 



Vcc 1 




N/C 2 




Vgl 3 




RDE 4 




RD7 5 




RD6 6 




RD5 7 




RD4 8 




RD3 9 




RD2 10 




RDl 11 




RDO 12 




PE 13 




FE 14 




OR 15 




SWE 16 




RCP 17 




RDV IB 




DAV 19 




SI 20 





40 TCP 
39 EPS 
38 NB2 
37 NBl 
36 TS6 
35 NP 
34 CS 
33 DBO 
32 DBl 
31 DB2 
30 DB3 
29 DB4 
28 DB5 
27 DB6 
26 DB7 
25 SO 
24 EOC 
23 DS 
22 TBMT 
21 XR 
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3702 N. Wells St. 

D&N MICRO PRODUCTS, INC. '^"'^^^^Su"™ 



TERMS $3.00 Shipping, Foreign orders add 15%, Indiana residents add 5% sal 



COMPUTER 



MICRO-80 COMPUTER 

Z-80A CPU with 4Mhz clock and 
CP/M 2.2 operating system. 64K 
low power static memory. Cen- 
tronics parallel printer port. 3 serial 
ports. 4" cooling fan. Two 8" single 
or double sided floppy disk drives. 
IBM single density 3740 format for 
243K or storage, double density 
format for604K of storage. Double 
sided drives allow 1.2 meg on 
each drive. Satin finish extruded 
aluminum with vinyl woodgrain 
decorative finish. 8 slot backplane, 
48 pin buss compatible with OSl 
boards. 
MODEL 80-1 200 $2995 

2 8" Single sided drives 
MODEL 80-2400 $3495 

2 8" Double sided drives 

MICRO-65 COMPUTER 

6502 CPU with 2Mhz clock and 
DOS-65 operating system. 48K of 
low power static memory. 2 serial 
ports and 1 Centronics parallel 
port. 2 8" single or double sided 
drives. Satin finish extruded 
aluminum with vinyl woodgrain 
finish. 8 slot backplane, 48 pin buss 
compatible with OSl. Will run OSl 
65D and 65U software. Includes 
Basic E/65 a compiled BASIC for 
6502 CPU. 
MODEL 65-1 $2995 

2 8" Single sided drives 
MODEL 65-2 $3495 

2 8" Double sided drives 

BP-580 8 Slot Backplane $ 47 

OSl 48 pin Buss compatible 
MEM-CM9 MEMORY/ 
FLOPPY CONTROLLER 

24K memory/floppy controller card 
uses 2114 memory chips, 1 8K and 
1 16K partition. Supports OSl type 
disk interface 

24MEM-CM9 $325 

16MEM-CM9 $260 

8MEM-CM9 .$180 

BAREMEM-CM9 $ 50 

Controller on assembled unit 
add $ 90 

BIO-1 600 Bare 10 card .$ 50 

Supports 8K of memory, 2 16 bit 
parallel ports, 5 serial ports, 
with manual and Molex 
connectors. 

No. 65 -October 1983 



PRINTERS 



Okidata 

ML82A,120cps,10" .$409 

ML83A,120cps,15" .$895 

ML84Parallel,200caps,15".$1150 

0. loth 
8510APProwriter, parallel ...$419 

120 cps, correspondence quality 

8510APDProwriter, serial $585 

F10-40PU Starwriter, parallel $1319 

Letter quality daisy wheel 
F10-40RU Starwriter, serial. .$1319 
F10-55PUPrintmaster $1610 

parallel, Letter quality daisy 

wheel 
F10-55RUPrintmaster, serial $1610 

DISK DRIVES AND CABLES 
8"ShugartSA801 ......... .$385 

single sided 
8"ShugartSA851 $585 

double sided 
FLC-66 ft cable from D&N $69 

or OSl disk controller to 8" drive 
SVa" MP! B51 disk drive with . . $450 

cable, power supply and 

cabinet. Specify computer type. 
FLC-5V4 cable for connection .$75 

to 5 V4 drive and D&N or OSl 

controller, with data separator 

and disk switch. Specify 

computer type 



HARDWARE 



OSl COMPATIBLE 

I0-CA1 ox Serial Printer Port. .$125 

Specify Device #3 or #8 
I0-CA9 Parallel Printer Port ..$150 
CMOS-MEM 

64K CIVIOS static memory board, 
uses 6116 chips, 3 16K, 1 8K and 2 
4K blocks, Partitionable for multi- 
user, OSl type disk controller, 2 10 
mapped serial ports for use with 
D&N-80 CPU. Ideal way to upgrade 
from cassette to disk. 

64K CMOS-MEM $500 

48KCMOS-MEM $405 

24KCMOS-MEM ...$260 

16KCM0S-MEM $210 

BARECMOS-MEM .........$ 50 

Controller add.$ 90 

2 10 mapped serial ports add. $125 

on assembled memory board 
Z80-IO 2 10 mapped serial $160 

ports for use with D&N-80 CPU 

card 

FL470 Disk Controller $155 

5V4 or 8" drive 

MICRO 



STANDARD 
CP/M FOR OSI 



D&N-80 CPU CARD 

The D&N-80 CPU allows the owner 
of an OSl static memory computer 
to convert to Industrial Standard 
IBM 3740 single density disk for- 
mat and CP/M operating system. 
Double density disk operation is 
also supported for 608K of storage 
on an 8" diskette. When used with 
a 5 V4 " disk system 200K of storage 
is provided. Optional parallel 
printer and real time clock. Also 
available for polled keyboard and 
video systems. Compatible with 
C2, C3, C4 and 200 series OSl com- 
puters. 

INCLUDES CP/M 2.2 
D&N-80-1 Serial 8" disk $595 
D&N-80-2 Video SV*" disk $595 
D&N-80-3 Video 8" disk $595 
Option 001 $ 60 

Parallel printer and 
real time clock. 

HARD DISK DRIVER $140 

Allows D&N-80 CPU board to con- 
trol OSl 40 or 80 meg hard disk unit. 
Will not destroy OSl files. Will also 
allow for a true 56K CP/M system. 
Specify 40 or 80 meg drive. 
BUSS TRANSFER $135 

Allows for D&N-80 and OSl CPU to 
be in the computer at the same 
time. Toggle switch provides for 
alternate CPU operation. 
DISKTRANSFER $100 

Utility program to transfer OSl 
CP/M format disk to IBM 3740 
single density format. Will also 
transfer IBM to OSl format. 
SYSTEM HARDWARE 
REQUIREMENTS 
D&N-80 CPU, D&N FL470 or OSl 
470 controller, 48K memory at 
0000-BFFF, 4K memory at DOOO- 
DFFF, two disk drive cables. 
FORMATTRANSFER $15 

You supply software on 8" diskette 
D&N will transfer OSl CP/M format 
to IBM 3740 CP/M format. Can also 
transfer IBM 3740 CP/M format to 
OSl CP/M format. Original diskette 
returned. 
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OHIO SCIENTIFIC 

THE WIZARD'S CITY - 

search for gold in the dun- 
geons beneath the Wizard's 
city or in the surrounding 
forest. A dynamic adventure 
allowing progress in strength 
and experience. Ail OSI — 
cassette $12.95, disk $15.95. 
OSI HARDWARE 15% OFF 
RETAIL PRICES' 

GALACTIC EMPIRE — a strat- 
egy ganne of interstellar con- 
quest and negotiation. Com- 
pete to discover, conquer, and 
rule an empire with the com- 
puter or 1-2 other players. C4P, 
C8P cassette $12.95, disk 
$15 95 

AIR TRAFFIC ADVENTURE - 
a real time air traffic simula- 
tion. C4P, C8P disks $15.95. 
Plus S-FORTH, PACKMAN, 
CRAZY BOMBER, ADVEN- 
TURE, TOUCH TYPING, IN- 
TELLIGENT TERMINAL and 
more. Send for our free 
catalog including photos and 
complete descriptions. 
(312)259-3150 
Aurora Software Associates 
liB 37 S.Mitchell 
1^™ Arlington Heights 
^^ Illinois 60005 




Appl^^Ttee 
Eledtronics 

PROWRITER PRINTER 

$395 



HARDWkRE 



FRANKLIN 



ACE 



The Professional Personal Computer 
INTRODUCTORY PACKAGE 

• Franklin Ace 
1000 

• 1-Disk Drive 
■ Green Monitor 

$1595 

QUICK BROWN FOX 

$5525 




CALL FOR THIS MONTH'S SPECIAL 



1-800-835-2246 EXT. 211 

OR 

702-459-4114 



5130 East Charleston Blvd. 

Suite 4M 
Las Vegas, Nevada 89122 



Add $3.00 for shipping, handling and insurance. 
Nevada residents add 5.75% sales tax. Please include 
phone number. Equipment subject to price change 
and availability. Call or write for price list. . 
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New Publications 



Polishing Your Apple, Volume 2, by 

Herbert M. Honig. Howard W. Sams &. 
Co. Inc., 4300 West 62nd St., 
Indianapolis, IN 46268, 1983, 107 
pages, paperback. 
0-672-22160-8 $4.95 



Apple II, BASIC Programs in Minutes, 

by Stanley R. Frost. SYBEX, 2344 Sixth 
St., Berkeley, CA 94710, 1983, 176 
pages, paperback. 

0-89588-121-7 $9.95 

plus $2.00 s/h 



How To Do It on the TRS-80, Model I, 
II, m. Color Computer and Model 100, 

by William Barden, Jr. IJG Inc., 1953 
West 11th St., Upland, CA 91786, 
1983, 300 pages, paperback. 
0-936200-08-1 $29.95 



Learn to Type on Your Computer, by 

Frank P. Donnelly. Dictation Disc Co., 

240 Madison Ave., New York, NY 

10016, 1983, 33 pages, cardstock, 

wire-o-bound. 

0-936862-16-5 $10.00 



PET/CBM, An Introduction to BASIC 
Programming and Applications, by 

Gene Streitmatter. Robert J. Brady Co, 
a Prentice-Hall Publishing Co., Bowie, 
MD 20715, 1983, 341 pages, paperback. 
0-89303-204-2 $13.95 



The Art of Computer Programming, by 

Donald William Drury. Tab Books, 
Inc., Blue Ridge Summit, PA 17214, 
1983, 303 pages, paperback. 
0-8306-1455-9 $10.95 



Learning Simulation Techniques on a 
Microcomputer, by Pat Macalugo. Tab 
Books Inc., Blue Ridge Summit, PA 
17214, 1983, 139 pages, paperback. 
0-8306-1535-0 $10.95 



Computer Town; Bringing Computer 
Literacy to Your Comunity, by Liza 
Loop, Julie Anton, and Ramon Zamora. 
Reston Publishing Co, Inc., a Prentice- 
Hall Company, Reston, VA 22090, 
1983, 160 pages, paperback. 
0-8359-0875 $12.95 



How to Build a Program, by Jack 
Emmerictis. Dilithium Press, P.O. Box 
606, Beaverton, OR 97075, 1983, 346 
pages, paperback. 
0-88056-068-1 $19.95 



Beginner's Guide to Reading 
Schematics, by Robert J. Traister. Tab 
Books, Inc., Blue Ridge Summit, PA 
17214, 1983, 134 pages, paperback. 
0-8306-1536-9 $8.95 



User's Handbook to the VIC-20 Com- 
puter, by Jeffrey R. Weber and Stephen 
J. Szczecinski. Weber Systems, Inc., 
8437 Mayfield Road, Cleveland, OH 
49026, 1983, 278 pages, paperback. 
0-938862-48-0 $13.95 



Programming Your Atari Computer, by 

Mark Thompson. Tab Books Inc., Blue 
Ridge Summit, PA 17214, 1983, 272 
pages, paperback. 
0-8306-1453-2 $19.95 



Computer Selection Guide, by Dan 

Poynter, Para Publishing, P.O. Box 
4232, Santa Barbara, CA 93103, 1983, 
164 pages, paperback. 
0-915516-33-0 $11.95 plus $1 s/h 
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The DIF File, by Donald H. Beil; 
Reston Publishing Co., Inc., A 
Prentice-Hall Company, Reston, VA 
22090, 1983, 235 pages, paperback. 
0-8359-1305-8 $15.95 



Encyclopedia of Computer Terms, by 

Douglas Downing, Barron's Educa- 
tional Series, Inc., 113 Crossways Park 
Drive, Woodbury, NY 11797, 1983, 
148 pages, paperback. 
0-8120-2519-9 $6.95 



Microprocessor Based Robotics, by 

Mark J. Robillard, Howard W. Sams & 
Co. Inc., 4300 West 62nd St., In- 
dianapolis, IN 46268, 1983, 220 pages, 
paperback. 
0-672-22050-4 $16.95 



UNIX Primer Plus, by Mitchell Waite, 
Donald Martin, Stephen Prata, Howard 
W. Sams a Co. Inc., 4300 West 62nd 
St., Indianapolis, IN 46268, 1983, 414 
pages, paperback. 
0-672-22028-8 $19.95 



Your First BASIC Program, by Rodnay 

Zaks, SYBEX, Inc., 2344 Sixth St., 

Berkeley, CA 94710, 1983, 187 pages, 

paperback. 

0-89588-092-X $9.98 plus $7 s/h 



Easy Guide to Your Apple n, by Joseph 

Kasciner, SYBEX, Inc., 2344 Sixth St., 

Berkeley, CA 94710, 1983, 147 pages, 

paperback. 

0-89588-122-5 $9.95 plus $2 s/h 
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Computer Software Associates, an 
established software house, supplies soft- 
ware for COMMODORE, APPLE, and IBM 
home computers, CSA is currently looking 
to expand its product base of serious pro- 
grams in the areas of home, education, and 
office. 

Computer Software Associates offers 
over 30 years of market experience, world- 
wide distribution, innovative packaging, 
generous royalties, and programmer support. 

Interested programmers should con- 
tact Mike Mahan, Product Development 
Department, Computer Software Associates, 
50 Teed Drive, Randolph, Massachusetts 
02368. Tel. (617) 961-5700. 

^^ COMPUTER 
SB SOFTWARE 

^W ASSOCIATES 



If he's working this hard 
to put himself through college, 
imagine how he'll work for you. 




This part-time worker is a full- 
time student at a United Negro Col- 
lege Fund college. He's one of thou- 
sands who work because it's the 
only way they can afford college. 
And who are too committed to fields 
like business administration, mar- 
keting, or engineering, to give up. 
(Almost 25% of our graduates have 
business degrees.) 

When your company contributes 
to the Fund, it helps 42 private, pre- 
dominantly black colleges and uni- 
versities keep tuition affordable for 
these students. Students who aren't 
afraid of working hard now. Or after 
they graduate. 

For information on how to con- 
tribute, write on your company let- 
terhead to the United Negro College 
Fund, Box E, 500 East 62nd St., N.Y, 
N.Y. 10021. 

Give to the 
United Negro 
College Fund. 

Amind is a terrible 
fhing to waste. 



©1982 United Negro College Fund, Inc. 
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Reviews in Brief 



Product Name: Vanilla PILOT 



Equip, req'd: 


Any PET, CBM, Commodore 64, or 




VIC-20 (with at least 16K] 




Both disk and tape versions are available 


Price: 


$29.95 


Manufacturer: 


Tamarack Software 




Darby, MT 59829 


Contact: 


Computer Marketing Services Inc. 




300 W. Marlton Pike 




Cherry Hill, NJ 08002 



Description: PILOT is an easy-to-learn language used to 
teach programming and computer concepts to children 
and other computer novices. The Vanilla version of PILOT 
is an inexpensive and relatively complete implementation 
of the PILOT language. It has all of the standard PILOT 
commands such as ACCEPT, TYPE, MATCH, CAL- 
CULATE, JUMP, and USE plus additional commands for 
sound and turtle graphics (using the quarter-space squares 
in the CBM graphic-character set). The VIC and 64 ver- 
sions also have special commands for color and joystick 
control. Any of these commands may be executed condi- 
tionally based on the status of the last MATCH. Vanilla 
PILOT allows you to enter and edit your programs using 



the built-in screen editor. In addition to the standard 
Commodore editing features. Vanilla PILOT has 19 special 
commands including AUTO, FIND, CHANGE, RE- 
NUMBER, and TRACE. There is even a special command 
to allow you to "pretty-print" your program listings on 
the screen or on a printer. Programs may be saved on, or 
loaded from, tape or disk. 

Pluses: Written entirely in machine language, Vanilla 
PILOT is very fast. The editing commands are superb and 
the documentation is excellent! The turtle graphics 
capabilities are a great way to teach programming concepts 
to children and to let them have fun at the same time. 
Vanilla PILOT is a great value for the price! 

Minuses: Vanilla PILOT lacks several important features 
found in other implementations of the language. The most 
severe limitations are: 1. calculations are limited to addi- 
tion and subtraction of integers between - 999 and -i- 999; 
2. no string variables are allowed, so it is not possible to 
use this version for the poetry- or story- writing exercises 
that are often a large part of other PILOTS; 3. conditional 
statements can only be YES or NO based on the last 
MATCH statement, so if you want to test for a specific 



IQ 



P.O. Box 4364 
Flint, Michigan 48504 
(313) 233-5731 
(313) 233-3125 



ZANIM 

SYSTEMS 



WE CARRY MANY VIC AND APPLE PRODUCTS. PLEASE SEND FOR A CATALOGUE. 



CP/M BOARD 



BARE BOARD $29.00 



128K RAM 



BARE BOARD $29.00 



* COMPATIBLE WITH ALL SATURN SYSTEMS SOFTWARE * 



80 COLUMN BOARD* 

* COMPATIBLE WITH THE VIDEX VIDEOTERM WITH SOFTSWITCH BUILT IN 



BARE BOARD $29.00 



ALL BOARDS HAVE SOLDER 

MASKING, COMPONENT LAYOUT, 

AND GOLD EDGEflNGERS 



BUILD YOUR OWN 

APPLE PERIPHERAL CARDS 

AND SAVE UP TO 80% 



WE WILL SUPPLY 

THE IC LIST FOR 

ANY BOARD 



APPLE 11 IS TRADEMARK OF APPLE COMPUTERS. INC. 

CP/M IS REGISTERED TRADEMARK OF DIGITAL RESEARCH. INC. 

VIDEX fS REGISTERED TRADEMARK OF VIDEX INC. 
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numerical value of a variable, the variable must first be 
converted to its ASCII representation and then a MATCH 
made against another ASCII representation. 

Documentation: Vanilla PILOT comes with a 113-page 
manual that is well-written and effectively illustrated. 
The first 86 pages contain a series of easy-to-follow 
tutorials aimed at beginning programmers. These tutorials 
have been classroom tested with children. The remainder 
of the manual is a reference guide and is aimed at the 
teacher and/or someone who is already familiar with PILOT. 

Skill level requited: No special skills required. 

Reviewer: David Malmberg 



Product Name: CoCo 
Equip, req'd: 



Commodore 64 with either Datasette or 
1541 Disk Drive 



Price: 



$49.95 



Manufacturer: ISA Software Inc. (HES) 
14114 Dallas Parkway 
Suite 530 
Dallas, TX 75240 

Description: Coco is an educational computer game that 
teaches the fundamentals of BASIC as well as the com- 
puter itself. Via the screen display, the program shows 
how memory is addressed by registers and how instruc- 
tions to the computer (such as loops and subroutines) 
function. After taking you briefly through the keyboard's 
functions you are shown, step by step, how a simple 
BASIC program works. 

Pluses: The program breaks the screen into boxes, which 
outline the memory registers along with the in/out func- 
tions and the commands entered. Then it shows you how 
everything interacts. The examples given provide a variety 
of programming methods and will get the novice off to a 
good start in understanding the BASIC language. The 
package has both cassette and disk versions. 

Minuses: To run the program you need a Joystick Port 
Adapter, which I feel is easy to misplace thus rendering the 



YOUR COLOR COMPUTER JUST EARNED A MATH DEGREE! 




FEATURING: 

• 3D SURFACE PLOTTING — Plots a user defined equation on an 
X,Y,Z coordinate system in the High-Res graphics mode. Planes, 
surfaces of revolution, statistical surfaces, etc. can be easily plotted. 
Surfaces may be saved to disk or tape. We believe this is the only program 
of its kind commercially available for the Color Computer. 



MATHMENU 

Developed by an engineer, Mathmenu is a 
powerful menu-driven system to turn your 
Color Computer into an inteUigent, flexible 
tool for mathematics and engineering. 
Mathmenu takes the tedium out of math, 
leaving your full brain power to attack the 
"meat'' of your problems. By rapidly mani- 
pulating matrices and vectors, performing 
integration and differentiation, solving 
quadratic equations, plotting user defined 
functions and much more, Mathmenu can 
help simplify the most complex problems. 
Whether you are a student or a professional, 
if you use math, you need Mathmenu, 



PLUS: 

• Complete MATRIX Operations 
(up to 8 X 8) 

• Complete VECTOR Operations 

• Numerical Differentiation 

• Numerical Integration 

• Least Squares Curve Fitting 

• Binomial Expansion 

• Prime Number Verification 



2D Function Plotting 

Rectangular to Polar Conversions 

Base Conversions 

Large Number Addition and 

Multiplication 
' Reverse Polish Logic Calculator 

with Hexadecimal 
' Quadratic Equation Roots 



• Main Menu with Single-key Selection and Return (Disk Only) 
Complete documentation of all functions is included. 

For 32K Disk $49.95 p;^^^,- Requires Extended BASIC 

For 16K Cassette $44.95 

Documentation only $5.00 (refundable with purchase) 

Or write for free brochure. 



Inter <^^cAction 

113 Ward Street • Dept. MI • New Haven, CT 06519 • (203) 562-5748 
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Reviews in Brief (continued) 



program unusable. The cassette version does not have the 
lessons on how to use the program that the disk ver- 
sion has. 

Documentation: The reference manual provided is clearly 
written and well done and allows learning the material 
without the computer programs. 

Skill level req'd: None 

Reviewer: Richard E. DeVore 



Product Name: Word Attack 

Equip, req'd: Apple 11 + , 48K, one disk drive 

(also IBM version) 
Price: $49.95 

Manufacturer: Davidson &. Associates 

6069 Groveoak Place, #12 
Rancho Palos Verdes, CA 90274 

Description: Word Attack is a four-part vocabulary 
building program that works. It can take the drudgery out 
of vocabulary drill and may be just the thing for those 
sagging S.A.T. scores. After you drill on three learning 
modes (choosing 4th- to 12th-grade words) you're ready for 
fun with the Word Attack mode. It's the old "blast the 
right answer" arcade game. 



Pluses: The program's most powerful feature is its editor 
mode, which allows you to create your own word lists. I 
handed our 10-year-old son the documentation and a list of 
troublesome math terms (complete with definitions and 
sample sentences). He had no trouble accessing the editor 
and was soon demolishing the likes of "quotient/' 
"perimeter/' and "product." 

Minuses: When using the editor, lines cannot be deleted 
except one at a time. This is a minor problem considering 
the overall ease of creating, editing, and saving files. 

Documentation: Word Attack is a well-designed, well- 
documented program. The manufacturer has additional 
data disks ($19.95) for grades four through nine as well as 
one specifically for S.A.T. review. 

Skill level required: Word lists begin at 4th-grade level and 
go through 12th-grade level. 

Reviewer: Mario Pagnoni 



Product Name: Bank Street Writer 

Equip, req'd: Apple II, Apple II -t- , Apple He, Atari, 

and one disk drive 
Price: $69.95 




ROCKWELL Microcomputers from Excert, Inc. 

• • SPECIALS • • RM 65 SERIES ^ 

A65-1 (IK RAM) $435 Deduct 50/0 from list if 

A65-4 (4K RAM) $455 Ordered with AIM 65® or 

A65-4B,4F (4K, BASIC or FORTH*) $495 AIM 65/40. \ r (~-,^. 

A65-4AB (4K, BASIC & Assembler) .$525 -^^-(^^w^A C0^'^' 

A65/40.5000 (32K RAM) $1250 R^p^^p SERVICE ^^R/f^I^^^ 

LANGUAGES for (^^^ ^/ warranty only) 

AIM-65® & AIM 65/40 $25/hr. plus parts - $25 m.n. Q^Lf^. . 

Assembler $35 .-I^-'^^^^^f^ 

BASIC ROMs $65 SPARE PARTS n^^^'^rr'f iT^W 

FORTH* ROMs $65 are available X.):^ / \,^^ 

ENCLOSURES & 

POWER SUPPLIES Qk^W DISCOUNT -Deduct 50/0 for Prepaid Orders 

A65-006 $175 (we pay shipping) 

ENC4A $115 ^ ^ ' ^^ ^^ 

ENC5A $130 TERMS: 

ENC6A $140 Net 30 from approved Companies & Institutions — otherwise COD. 

Shipping will be added to order. Minnesota residents add 6% sales tax. 
Prices subject to change without notice. 

'W^^^$m0^^i^if\^ Computer Division Authorized Dealers for: 

rSWilpAppT iMrnRPHRATPn ROCKWELL INTERNATIONAL CORP., 

: :i;;iv#>:;^;#^^^" ' iNi^URPUHATtO CUBIT, MTU, FORETHOUGHT PRODUCTS, GORDOS, 

P.O. Box 8600 SEAWELL, DYNATEM, APPLIED BUSINESS COMPUTER 

■^-^ILil-^ "Si^^^^ ^f ^"Ltf "Jrt AiM-65 is a registered trademark of Rockwell Internationaf Corp. 

■ ■S^ISM^'*^'^ Minnesota 551 1 . pqRTH is a registered trademark of Forth. Inc. 
^ -^m^fetlWG (61 2) 426-41 1 4 
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Manufacturer: 



Broderbund Software 
1938 Fourth Street 
San Rafael, CA 94901 



Description: Bank Street Wiitei is a word processor that is 
simple enough for children to use but is surprisingly 
sophisticated. All operations are accessible from menus. 
Features include page formatting, shift-key modification, 
file passwords, conversion of binary and text files, erase 
and recover, move text blocks, and find and replace. 

Pluses: A complete, well-guided tutorial is provided on the 
master disk. Commands are continually displayed to pre- 
vent confusion. 

Minuses: The 40-column, non-scrolling display makes for- 
matting printouts difficult even with a "final draft" for- 
matting module. Having to exit Write mode for every little 
correction consumes time. Text in memory is limited to 
about 1500 words (3200 with a 64K Apple He). 

Documentation: Instructions are available on the disk; 
however, a booklet fills in any gaps. 

Skill level required: Beginner 

Reviewer: Mike Cherry 



Product Name: The Color Connection 

Equip, req'd: TRS-80 Color Computer 16K 

Price: $29.95 tape, $39.95 disk 

Manufacturer: Computerware 
Box 668 

Encinitas, CA 92024 



Description: The Color Connection is a deluxe terminal 
package for the Color Computer. The program will work 
with any modem, but is specifically designed to work with 
the Hayes Smartmodem. All features of the Hayes modem 
are supported. I tested the disk version. There are two 
submenus accessed from the main menu: one loads the 
buffer and one accesses the set-up conditions. 

Pluses: The program is easy to load and use. Set-up 
parameters include 7- or 8-bit, auto-line feed, parity, full 
or half duplex, phone number, macros 1-4, and save set-up 
file. The buffer can be transferred to disk or viewed and 
can be loaded from either disk or keyboard. When in the 
terminal mode, the buffer can be opened and closed as 
needed. Buffer size is over 25K with a 32K machine. 

Minuses: The disk is auto executing and cannot be backed 

(Continued on next page) 




TheSTARCOM 

$45000 



/another technological^ 
1 breakthrough ^ 




*AUTO DIAL 300/1200 BPS 
212A COMPATIBLE MODEM 

*BUILT-IN SPEAKER 



^EXCLUSIVE TWO YEAR WARRANTY 

*VERY COMPACT 

^COMPLETE COMM SOFTWARE AVAILABLE 



TheOSCOM 

$52000 



'ihe'oSCOM^s^^^^^^^^^^^ New'pVod'uTLigned for the OSBORNE- Computer User. To simplify its use by providing the necessary communi- 
cation software integrated in the Modem, no more guessing as to which Software to use. 
*The SOFTCOM is a Communtcations Software Package for PC Microcomputer Users. 

We Offer Very Generous Discounts To Our Dealers 
Call and Place Your Order Today 
ORDERS ONLY 1-800-323-2666 

For Information Call 312-459-8881 

INCOMM 

Division of Interbusiness Corporation 

115 N. Wolf Road 

Wheeling, IL 60090 
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GRANITE COMPUTER SYSTEMS 

THE DISASSEMBLER FAMILY 

Source listings identical with TSC 6809 EDITOR - User symbol 
tables - Locai and global labels and expressions - Occurance 
numbered local labels - Easy identification of Data Areas - FCB - 
FDB - FCC - Step (optional) disassembly one program or data 
statement at a time - Source code disc or tape for TSC EDITOR 
input - Run TSC ASSEMBLER with no or minimal editing Monitor 
and FLEXTM references are named - Equate table for all external 
references - Problem codes flagged {6800 & 6502) 

Convenient menu driven options carry out tedious error prone 
disassembly operations - rapidly and accurately. 

6809 to 6809 DISASSEMBLER $75.00 

6800 to 6809 DISASSEMBLER $75.00 

6502 to 6809 DISASSEMBLER $75.00 

TEXTWRITER II - A complete Text Processor to use with the TSC 
TEXT EDITOR - The two programs run as one - All features you 
expect in a full text editing and processing system - (For 
example: Embed print control characters) - Menu driven 

Disk only $75.00 

TEXTWRITER I - A basic Text Processor program to use with the 
TSC TEXT EDITOR - with most of the features of TEXTWRITER II 
Specifically for tape systems 

Cassette only $50.00 

EPROMMER- Use with the SWTPCMP-R Programmer $40.00 

FILEMANAGER - Use with the JPC TC-3 high speed I/O board - 
comprehensive cassette oriented operating system. $40.00 

All efficient - well documented - and - VERY FRIENDLY 
Run on any SS50 6809 with No or Minimal changes - Provided 

Object (Binary) programs on 5 & 8 FLEXTM discs or KC 
cassette Inquire about Color Computer availability - Non-FLEX 

FLEXTM is a trademark of Technical Systems Consultants, Inc. 

GRANITE COMPUTER SYSTEMS 

Route 2 Box 445 

Hillsboro, NH 03244 

M/C VISA (603)464-3850 





Reviews in Brief (continued) 



Commodore 64" & Apple 11 
Assembly Language 
Debugger ^^...J^^^^ 

If you are developing^ ^^S^*^ 
software for the 
Commodore 64 or 
Apple II or are interested 
in assembly language programming, you needed this 
finely-crafted aid "yesterday:' All the features you'd 
expect in an advanced debugger are included - step, 
breakpoints, windowing, super-complex conditional 
breaks, symbolic debugging, patch, show prior 128 
steps, and compiled BASlC-like language. Supplied 
complete with a detailed instruction manual. A new 
data sheet is available on request. 

PTD-6510 Debugger for Commodore 64 $65.10 

PTD-6502 Debugger for Apple II and lie $49.95 

Manual (only) for above, each $10.00 

DisKit 64 Fast single disk copy 

(-Futilities) for Commodore 64 $75.00 

*PTD-6510 (Commodore) requires 1541 disk drive. 
PTD-6502 (Apple) requires DOS 3.3, 48K. 

pTGRODAOYL 
SOHWAR£" 

200 Bolinas Road #27, P.O. Box 538 
Fairfax, CA 94930 (415) 485-0714 



up. Be sure to install a write-pr'otect tab on the disk and 
use it only to load the program. There is no line-print utility. 

Documentation: An 8-page manual is included that more 
than adequately explains software use. 

Skill level required: No particular skill level is required. 
Reviewer: John Steiner 



Product Name: Atari BASIC Compiler 

Equip, req'd: Atari 400/800, 48K, one or more 
disk drives 

Price: $99.95 

Manufacturer: Datasoft, Inc. 

9421 Winnetka Avenue 
Chats worth, CA 91311 



Description: The Atari BASIC Compiler compiles pro- 
grams written in Atari BASIC into machine code. This 
four-pass compiler offers the option of using integer or 
floating-point arithmetic. An optional BASIC-to-machine 
code reference map may be printed to disk, screen, or 
printer. Assembler source files are created and saved for 
assembly programmers using DATASM assembler. Com- 
piler design emphasizes speed over compactness in com- 
piled program. 

Pluses: The compiler is easy to use and fast. The choice of 
floating-point or integer arithmetic is important to those 
doing complex calculations. The line-reference map and 
assembler source files would be a great aid to those 
wishing to learn assembly language. Compiled programs 
are easy to load and fast running. Commercial sale of 
compiled programs is possible with a simple acknowl- 
edgement. The program and documentation are attrac- 
tively packaged. 

Minuses: The compiler does not support BYE, CONT, 
CLOAD, CSAVE, DOS, ENTER, LIST, LOAD, NEW, 
SAVE, RUN "filespec," GOTO variable, or GOSUB 
variable. Some minor modifications may be needed to 
BASIC programs before compiling. 

Documentation: Concise and well organized. Sections on 
error handling and BASIC program optimizing are 
very useful. 

Skill level required: Beginner/ intermediate BASIC 
programmer. 

Reviewer: Tim Kilby 
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Next Month in MICRO 
November features 

GRAPHICS 

Screen Editors — Generate your 
own personal character set — for the 
Apple, Atari, Commodore, and TRS-80 
Color Computer. 



Drawing Package — An example 

of what you can do with your own 
personal character set. 

Also: See our Buyer's Guide — just in 
time for your Christmas shopping. 

Read abmit your computer In the new 
machine-specific sections — included 
are a bar-graph generator for the Apple 
and OS-9 for the TRS-80 CoIcm' ComjHiter. | 



i(®mwM»^# 



Ver. 2 For your APPLE II/II+ 

The complete professional software system, that meets 
ALL provisions of the FORTH -79 Standard (adopted Oct. 
1980). Compare the many advanced features of FORTH- 
79 with the FORTH you are now using, or plan to buy! 
FEATURES O^RS OTHERS 



79-Standard system gives source portability. YES 
Professional ty written tutorial & user manual 200 PG. 

Screen editor with user-definable controls. YES 

Macro-assembler with local labels. YES 

Virtual memory. YES 

Both 13 8» 16-sector format. YES 

Multiple disk drives. YES 

Double-number Standard & String extensions. YES 

Upper/lower case keyboard input. YES 

LO-Res graphics. YES 

80 column display capability YES 

Z-80 CP/M Ver. 2.x & Northstar also available YES 

Affordable! $99.95 
Low cost enhancement option: 

Hi-Res turtle-graphics. YES 

Floating-point mathematics. YES 
Powerful package with own manual, 
50 functions in all, 
AM9511 compatible. 

FORTH-79 V.2 (requires 48K & 1 disk drive) 
ENHANCEMENT PACKAGE FOR V.2 

Floating point & Hi-Res turtle-graphics $ 49.95 

COMBINATION PACKAGE $139.95 

{CA res. add 6% tax: COD accepted) 



$ 99.95 



MicroMotion 

12077 Wilshire Blvd. # 506 
L.A.,CA 90025 (213)821-4340 
Specify APPLE. CP/M or Northstar 
Dealer inquiries invited^ 




. INTERSTELD°lR^DRiyE 

i^ H^ ♦ ^^ A SOLID STATE DISK EMULATOR 



Save valuable time! 

5 to 50 times faster 

performance than floppy disks 

and Winchester drives 

PION'S INTERSTELLAR DRIVE is designed for use with a 
family of interfaces and software packages. Currently avail- 
able are interfaces for IBM, SI 00, TRS80, Apple, SS50, and 
most Z80 up, and software for most popular operating systems. 
Additional interfaces are continually being developed for the 
most popular computers. 

Basic Price for 256KB unit [includes interface a nd software] 

% 1 095 ^^^^ ^^ (where applicable) and shipping 





SAVE MONEY! 
Increase your 
computer's productivity 

The INTERSTELLAR DRIVE is a high performance 
data storage subsystem with independent power 
supply, battery backup, and error detection. It has 
256KB to 1 Megabyte of solid state memory integrated 
to perform with your operating system. 



Visa and Master Card accepted. 



PION,iNc. 



Tel.f6 1 7)923-8009 

1 1 R Walnut St., Wateitown, n/IA 02 1 72 

TRS80 trademark of Tandy Corp. Apple trademark of Apple Computers 
Interstellar Drive trademark of PION, Inc. , . 
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Grand Prize: 

AMDEKCOLOR-I 
MONITOR 



Plus: A One Year 
Subscription to 
iVIICRO IVIagazine 





4 First Prizes: AMDEK B&W Monitor 

Pius: One Year Subscription to i\/IICR0 



4 Second Prizes: Box of Disks from Leading Edge 

Plus: One Year Subscription to MICRO 
4 Third Prizes: 1 Year Subscription to MICRO 



Prizes Awarded One in Eacii Categoiy: Atari, Apple, Commodore, TRS-80C 



CONTEST 



Use The Form Below 
To Enter Your Qraphle Today 



1. No purchase necessary. Official Entry 
Forms are available in MICRO Magazine, or 
may be obtained, free of charge, from retail 
stores selling MICRO Magazine, or from 
MICRO Magazine directly by sending a self- 
addressed, stamped envelope to: MICRO 
Graphic Contest, P.O. Box 6502, Amherst, NH 
03031. Exact copies of the Official Entry 
Form are also acceptable. 

2. All entries must be on machine-readable 
format and, if possible, should be 
accompained by a photograph or 35 mm 
slide of the monitor screen taken white the 
graphic is being displayed. Submitted 
material will not be returned unless a Self- 
Addressed, Stamped Envelope is provided. 
MICRO assumes no responsibility for lost 
slides or damaged material. 

3. All entries must be postmarked no later 



CONTEST RULES 



than December 15, 1983. 

4. Contestants may enter as many times as 
they choose, however each graphic 
submitted must be an original work and must 
be accompanied by its own entry form. Each 
graphic should be titled. 

5. All prizes will be awarded. In the event 
contest judges are deadlocked on the winner 
of any prize, the prize will be awarded to the 
contestant whose entry has the earliest 
postmark. Substitutions are not allowed. All 
decisions of the judges are final. 

6. By submitting a graphic to be judged, the 
contestant swears and affirms that the 
graphic is an original work created by the 
contestant and assigns all rights to 
reproduce the graphic, for no additional 
consideration, to The Computerist, Inc., and 
its divisions: Micro Ink, and MICRO 



Magazine. The contestant is liable for any 
and all litigation, court costs, and attorneys' 
fees resulting from his or her submission of 
plagiarized or stolen graphic programs. 

7. Winners will be announced in the March 
1984 issue of MICRO Magazine. A list of all 
winners may be obtained after March 1, 1984, 
by mailing your request and a self-addressed 
stamped envelope to: MICRO Graphic 
Contest, P.O. Box 6502, Amherst, NH 03031. 

8. Employees of The Computerist, Inc., 
Micro Ink, and MICRO Magazine, as well as 
MICRO Magazine's columnists and 
contributing editors are Ineligible. 

9. The MICRO Graphic Contest Is a contest 
of skill, talent, and programming ability and 
in no way constitutes a game of chance or 
lottery. Void where prohibited by law. 



OFFICIAL ENTRY FORM 



MICRO Graphic Contest Official Entry Form 



Name 



System 



Street 



Graphics Package 



} City _ 



. State . 



-Zip_ 



Title of Graphic^ 



I have read the MICRO Graphic Contest rules 
and understand and have followed all regulations. 



Signature 

Complete and mail with your graphic to: MICRO Graphic Contest 

P.O. Box 6502, Amherst, NH 03031 



Apple*, Commodore*, 
Timex/Sinclair* . . . 



by William B. Sanders 



The idea of getting your own connpufer 
sounded wonderful. But now thot you hove it 
you're o little scored . . . you think it sounds so 
technical. Well, take heart. Relax. Help is here. 
William B. Sanders has written individual books 
about the Apple, the Commodore 64, and the 
Timex/Slncloir computers. When you select the 
one which matches your computer you con 
breathe easy because it'll be like having your 
all-time favorite teacher at your side . . . gently 
guiding you, explaining, and showing. 

THE ELEMENTARY series sweeps away the 




We make 
tliem 

M DATAMOST 

8943 Fullbright Ave., Chotsworth, Co. 9131 1 . (213) 709-1202. 

VISA/MASTERCHARGE accepted. $2.00 shipping/handling charge. 

(Calilornia residents add 6y2% sales tax) 

*Apple, Commodore 64, and Timex/Sinclair are trademarks 

respectively of Apple Computer, Inc., Commodore Business 

Machines, Inc. and Timex Computer Corp. Copyright 1983 Datamost Inc. 
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confusion and explains your 
Apple, Commodore 64 or 
Timex/Sinclair in down to 
earth terms, coupled with 
enjoyable cartoons. It 
shows you how to hook it 
up, how to use the key- 
board and work on 
the screen— all the 
unique things your 
^ computer can do so you 
can moke use of It right away! And 
it also answers those questions you'll 
hove about how to write your own simple pro- 
grams, about graphics, utilit/ programs, and 
various hardware options. 

You'll see your ELEMENTARY book contains a 
lot of information. And, you'll also see that not 
one paragraph or chapter is dull or difficult to 
follow. Prove ityouryourself.Visif your computer 
store. Open the book. Read a poge of the 
introduction, then flip to any page and read a 
paragraph or so. You'll find it's as understand- 
able, OS helpful and as mars^elous as we say. 
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Advertiser's Index 



AB Computers 93 

Acorn Software Systems 10 

Alternative Energy Products 94 

Amplify 2,0 

Apple Tree Electronics 100 

Arbutus Total Soft 92 

Ark Computing 6 

Aurora Software 100 

Avalon Hill 45 

Check-Mate 57 

Commander Magazine 10 

Communications Electronics 19 

CompuTech 23 

Computer Expositions, Inc 8 

Computerist 70 

Computer Mail Order 84-85 

Computer Marketing 1 

Computer Science Engineering 14 

Computer Software Association 101 

D & N Micro 99 

Datamost, Inc 27, 110 

Disk World 41 

Eastern House Software 13 

Estes Engineering 75 

Excert 104 

Granite Computer 106 

Hollywood Hardware 82 

InComm 105 

Inter- Action 103 

Interesting Software 88 

John Bell Engineering .37 

Leading Edge Cover IV 

Manx Software 23 

Mercury Micro, Inc 15 

Microbits 74 

MicroMotion 107 



MicroSpec 15,30 

Microware Distributing 20 

Midwest Micro 40 

Modular Mining 89 

Monarch Data 63 

Nibble 61 

Penguin Software Cover II 

Percom Data 3 

Performance Micro 63 

Pterodactyl Software 106 

Pion, Inc 107 

Professional Business Forms 75 

Prometheus Cover III 

Protecto Enterprises 21, 51, 95 

R H Electronics 43 

Richvale Telecommunications 46 

Scientific Software 16 

SGC 17 

SJB Distributors 24 

Skyles Electric Works 83 

Spectrum Projects 16 

Star Micronics 67 

Strom 41 

Unique Data 81 

Versa Computing 9 

Victory Software 91 

Winders &. Geist Inc 11 

Zanim Systems 53,102 



MICRO Magazine is not responsible for claims made by 
Its advertisers. Any complaint should be submitted 
directly to the advertiser Please also send written 
notification to MICRO. 



National Advertising 
Representatives 



Home Office: 

Sheila McDonough, Advertising Representative 
10 Nortliern Boulevard 
P.O. Box 6502 
Amiierst, NH 03031 



West Coast: 

The R.W. Walker Co., Inc. 
Gordon Carnie 

2716 Ocean Park Boulevard, Suite 1010, 
Santa Monica, California 90405 (213) 450-9001 

serving: Washington, Oregon, Idaho, Montana, Wyoming, Colorado, 
New Mexico, Arizona, Utah, Nevada, California, Aiasf<a, and Hawaii 
(also British Coiumbia and Alberta, Canada) 



iVI id-West Territory: 

Thomas Knorr & Associates 
Thomas H. Knorr, Jr. 

333 N. Michigan Avenue, Suite 401 
Chicago, Illinois 60601 (312) 726-2633 

serving: Ohio, Oklahoma, Arkansas, Texas, North Dakota, South 
Dakota, Nebraska, Kansas, Missouri, Indiana, Illinois, Iowa, 
Michigan, Wisconsin, and Minnesota. 
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NEWS. . .NEWS. . .NEWS. . .NEWS. . .NEWS. . .NEWS. 



• ♦Growth in the availability of microcomputers created a 16.1 percent increase in the number of actively 
marketed computer systems from January 1, 1983 to July 1, 1983, according to an analysis of the DATA SOURCES 
data base. The analysis, a regular feature of the quarterly DATA SOURCES directory, was based on 1,893 
computer systems from 566 vendors. Nearly a third of ail the systems actively marketed are microcomputers. The 

high-end microcomputer vendors led the activity with a 61,1 percent increase in systems and the Introduction of 
44 new products. Sixteen new portable computers were announced representing a 56.2 percent expansion, and 77 
desktop and personal computer units were unveiled for an Increase of 23 percent. In all, this amounted to more 
than one new microcomputer-based system for every working day In the time period analyzed. 

Such areas as mainframes, minicomputers, small business systems and board-level computers showed only a 
7.5 percent growth In new products. The number of vendors marketing these systems actually declined 2.25 
percent from 222 companies on January 1 to 217 companies on July 1. For more information write DATA 
SOURCES, 20 Brace Road, Cherry Hill, NJ 08034. 



• • The FORTH National Convention will be held October 14-15, 1983 at the Hyatt Palo Alto and will focus on 
FORTH-Based Systems. The convention is sponsored by the FORTH Interest Group (FIG) and is prepared to meet 
the needs of FORTH enthusiasts — from beginner to professional — with two days of hands-on tutorials, 
exhibits/vendor booths, lectures and discussions. For further information call the FIG HOT LINE (415)962-8653 or 
write the FORTH Interest Group, P.O. Box 1105, San Carlos, CA 94070. Registration is $5.00. 



• • A manufacturer-sponsored credit card in the retail computer Industry has been announced by General Electric 
Credit Corporation (GECC) and Apple Computer. The Apple Card is the centerpiece of a new consumer credit 
financing program for buyers of Apple computers and compatible hardware and software. The program has been 
designed by GECC for Apple's U.S, network of 800 authorized retailers representing over 1400 stores. It will be in 
place for consumers to use on July 16th. 

The Apple Card will enable customers to purchase Apple computers and system components wittiout drawing 
on other lines of credit. Finance charges on Apple Card balances will be competitive with bank card charges. 
Applications for an Apple Card are available at any participating authorized Apple U.S. dealer. To qualify for the 
credit card, the consumer must purchase an Apple personal computer and finance a minimum of $825.00. Up to 90 
percent of the inltiaf purchase can be charged by qualifying customers. 



• • The National Software Show will be held Octc^er 19-21, 1983 at the San Francisco Trade Show Center, San 
Francisco, CA. For more information contact The National Software Show, 21 Tamal Vista, Suite 175, Corte 
Madera, CA 94925. 



• • "Educational Computing Profile," a television series for educators md parents will premiere on the PBS 
network tWs September. Designed to give practical guidance on buying and using microcomputer software, 
hardware and peripherals for educational purposes, the nine monthly half-hour programs will update parents, 
educators, and librarians on the latest technical developments and issues In the microcomputer field. 

The program will use a magazine format and include reports and interviews in the areas on trends and news, 
courseware evaluation, hardware evaluation, and interviews with educators. Check your local PBS listing for time 
and date. For further Information, contact Mary Campbell at KET- (606) 233-3000, Ken Komoski at ERIE 
(516) 283-4922 or Barbara Garris at ERIE (212) 678-3459. 



• • CompuServe subscribers can access FIRSTWORLD Travel Service in the Home Services area of the 
CompuServe Information Service. This travel Club publishes special ticket prices, offers a 24-hour reservation 
service, a catalog of discounted tours and cruises and membership to the Very Important Traveler (VIT) Club. The 
VIT Club retains a personal travel profile that lists your travel preferences, such as charge card Instructions and 
flight accommodations. 

CompuServe Incorporated is a computer services company providing value-added data processing services to 
large corporations, financial institutions and government agencies. In addition, CompuServe offers network 
communications services and operates computer schools in several U.S. cities. The CompuServe information 
Service, the largest commercially available videotex information service, currently serves approximately 53,000 
subscribers. 
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Time for your computer to make the telephone con- 
nection - with an intelligent, full 21 2A 300/1200 
baud modem - with a real time clock/calendar - 
and with the capability to expand into a com- 
plete telecommunications system. It's time for 
PRO-MODEM 1200. Much more than just a phone 
modem. 

When you're on-line, time is money. PRO-MODEM 
telecommunication systems help you save. By 
monitoring the duration and cost of your phone 
calls. And by sending and receiving messages, 
unattended, at preset times when the rates are 
lower. . .with or without your computer. 
Compare the $495 PRO-MODEM 1 200 with any other 
modem on the market. For example, you'd have to 
buy both the Hayes Smartmodem 1200 plus their 
Chronograph for about $950 to get a modem with 
time base. 

PRO-MODEM 1 200 is easy to use. A convenient 
"Help " command displays the Menu of operating 
command choices for quick reference whenever 
there's a question about what to do next; Extensive 
internal and remote self-diagnostics assure that the 
system is operating properly. Some of the other 
standard features include Auto Answer, Touch 
Tone and Pulse Dialing, and Programmable Intelli- 
gent Dialing. 



PRO-MODEM does more. It lets you build a full tele- 
communications system with features like Auto 
Dialer, Incoming and Outgoing Message Buffering, 
Business/Personal Phone Directory, Program- 
mable Operating Instructions, a 12-Character 
Alpha-Numeric Time and Message Display, and 
versatile PRO-COM Software. PRO-MODEM com- 
mands are Hayes compatible so you can use most 
existing telecommunications software without 
modification. 

There's much more to the PRO-MODEM story. See 
your local dealer for complete details. He'll show 
you how to save time. And money. 

Prometheus Products, Inc., 45277 Fremont Blvd., 
Fremont CA 94538, (415) 490-2370 
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